[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

binding a summary key to *two* commands

From: Hikaru Ichijyo
Subject: binding a summary key to *two* commands
Date: Tue, 20 Jan 2015 11:54:01 -0600
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)

Anyone have any idea how I could make *two* summary buffer commands emit
from one keystroke?  I've tried the snippet below, but it's giving me
errors about the wrong number of arguments.  Basically, I'm trying to
make "D" expire and read next unread, while "d" just expires and moves
forward without reading.  The only part not working here is the "D".

(defun delete-then-read-next ()
(add-to-list 'mm-attachment-override-types "image/.*")
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
(add-hook 'gnus-summary-mode-hook (lambda ()
    (local-set-key "D" 'delete-then-read-next)
    (local-set-key "d" 'gnus-summary-put-mark-as-expirable-next)
    (local-set-key "u" 'gnus-summary-clear-mark-forward)
    (local-set-key "x" 'gnus-summary-expire-articles)
    (local-set-key "s" 'gnus-summary-move-article)))

He that would make his own liberty secure must guard even his enemy from
oppression; for if he violates this duty, he establishes a precedent
that will reach to himself.
                                        --Thomas Paine

reply via email to

[Prev in Thread] Current Thread [Next in Thread]