From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/17339 Path: news.gmane.org!not-for-mail From: Hikaru Ichijyo Newsgroups: gmane.emacs.gnus.user Subject: binding a summary key to *two* commands Date: Tue, 20 Jan 2015 11:54:01 -0600 Organization: UN Spacy Message-ID: <8xx7fwhwd6u.fsf@village.keycorner.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1421776508 17465 80.91.229.3 (20 Jan 2015 17:55:08 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 20 Jan 2015 17:55:08 +0000 (UTC) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Tue Jan 20 18:55:08 2015 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YDd19-0002qy-U5 for gegu-info-gnus-english@m.gmane.org; Tue, 20 Jan 2015 18:55:08 +0100 Original-Received: from localhost ([::1]:45016 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YDd19-0003sM-B0 for gegu-info-gnus-english@m.gmane.org; Tue, 20 Jan 2015 12:55:07 -0500 Original-Path: usenet.stanford.edu!news.kjsl.com!news.alt.net!news.astraweb.com!border5.newsrouter.astraweb.com!not-for-mail Original-Newsgroups: gnu.emacs.gnus User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) Cancel-Lock: sha1:Fn9PEfPLyyfdaedFOTojY4Vsl4Y= Original-Lines: 26 Original-NNTP-Posting-Host: 2adcc676.news.astraweb.com Original-X-Trace: DXC=ZjINefJ^C>TaaSDeVe\e2]L?0kYOcDh@ZONOToUcNUVSm; ^:@:IUMPTFeK=h[\Ra]To=EIjJ5b; WS3K:9^o4aV8QC3^ZD3SSZ_P:Khk11emB\W Original-Xref: usenet.stanford.edu gnu.emacs.gnus:88468 X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:17339 Archived-At: 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 () (interactive) (gnus-summary-mark-as-expirable) (gnus-summary-next-unread-article) ) (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