From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ken Olum Newsgroups: gmane.emacs.bugs Subject: bug#17560: 24.4.50; wrong type argument if rmail-delete-after-output set Date: Tue, 27 May 2014 11:08:06 -0400 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1401203375 18685 80.91.229.3 (27 May 2014 15:09:35 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 27 May 2014 15:09:35 +0000 (UTC) Cc: 17560@debbugs.gnu.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue May 27 17:09:28 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@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 1WpJ0A-0005kN-5n for geb-bug-gnu-emacs@m.gmane.org; Tue, 27 May 2014 17:09:18 +0200 Original-Received: from localhost ([::1]:35886 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WpJ09-0007QA-KP for geb-bug-gnu-emacs@m.gmane.org; Tue, 27 May 2014 11:09:17 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:40986) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WpJ00-0007NR-9K for bug-gnu-emacs@gnu.org; Tue, 27 May 2014 11:09:13 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WpIzv-0003LK-9s for bug-gnu-emacs@gnu.org; Tue, 27 May 2014 11:09:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:34651) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WpIzv-0003LG-6T for bug-gnu-emacs@gnu.org; Tue, 27 May 2014 11:09:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WpIzu-0006Dd-Gb for bug-gnu-emacs@gnu.org; Tue, 27 May 2014 11:09:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Ken Olum Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 27 May 2014 15:09:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 17560 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 17560-submit@debbugs.gnu.org id=B17560.140120330023845 (code B ref 17560); Tue, 27 May 2014 15:09:02 +0000 Original-Received: (at 17560) by debbugs.gnu.org; 27 May 2014 15:08:20 +0000 Original-Received: from localhost ([127.0.0.1]:33528 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WpIzA-0006CT-1G for submit@debbugs.gnu.org; Tue, 27 May 2014 11:08:19 -0400 Original-Received: from cosmos.phy.tufts.edu ([130.64.83.16]:36411) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WpIz1-0006CC-13 for 17560@debbugs.gnu.org; Tue, 27 May 2014 11:08:14 -0400 Original-Received: from kdo by cosmos.phy.tufts.edu ([local]:local) with local id 1WpIz0-0003jS-Mp - Using Exim-4.80.1 (MandrivaLinux) MTA (return-path ); Tue, 27 May 2014 11:08:06 -0400 In-Reply-To: <83ha4fll8k.fsf@gnu.org> (message from Eli Zaretskii on Sat, 24 May 2014 09:54:51 +0300) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:89555 Archived-At: --=-=-= Content-Type: text/plain OK. Here is a different patch making the arguments to rmail-delete-forward and rmail-delete-backward optional and defaulting to 1. NEWS and ChangeLog are included. Ken --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=rmail-delete.patch === modified file 'etc/NEWS' --- etc/NEWS 2014-05-17 08:11:31 +0000 +++ etc/NEWS 2014-05-27 14:50:48 +0000 @@ -130,6 +130,9 @@ ** You can access the slots of structures using `cl-struct-slot-value'. +** Functions `rmail-delete-forward' and `rmail-delete-backward' take an +optional repeat-count argument. + * Changes in Emacs 24.5 on Non-Free Operating Systems === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2014-05-23 15:54:44 +0000 +++ lisp/ChangeLog 2014-05-27 15:04:59 +0000 @@ -1,3 +1,8 @@ +2014-05-27 Ken Olum + + * mail/rmail.el (rmail-delete-forward): Default `count' to 1. + (rmail-delete-forward): Argument `count' optional, default to 1. + 2014-05-23 Stefan Monnier * minibuffer.el (completion--sreverse): Remove. === modified file 'lisp/mail/rmail.el' --- lisp/mail/rmail.el 2014-05-05 01:08:54 +0000 +++ lisp/mail/rmail.el 2014-05-27 14:53:00 +0000 @@ -3482,6 +3482,7 @@ Returns t if a new message is displayed after the delete, or nil otherwise." (interactive "p") + (if (not count) (setq count 1)) (let (value backward) (if (< count 0) (setq count (- count) backward t)) @@ -3496,7 +3497,7 @@ (rmail-maybe-display-summary) value)) -(defun rmail-delete-backward (count) +(defun rmail-delete-backward (&optional count) "Delete this message and move to previous nondeleted one. Deleted messages stay in the file until the \\[rmail-expunge] command is given. A prefix argument is a repeat count; @@ -3505,6 +3506,7 @@ Returns t if a new message is displayed after the delete, or nil otherwise." (interactive "p") + (if (not count) (setq count 1)) (rmail-delete-forward (- count))) ;; Expunging. --=-=-=--