Mercurial > emacs

changeset 88181:49f75e9e02e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-get-message-at-point): Handle 5-digit message ids.
author Henrik Enberg <henrik.enberg@telia.com>
date Tue, 17 Jan 2006 06:32:14 +0000
parents 70ad16fb9d05
children 68fb0731dff0
files lisp/mail/rmailsum.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Tue Jan 17 02:35:51 2006 +0000
+++ b/lisp/mail/rmailsum.el	Tue Jan 17 06:32:14 2006 +0000
@@ -577,7 +577,6 @@
 
 ;; Delete and undelete summary commands.
 
-;;; mbox: ready
 (defun rmail-summary-delete-forward (&optional count)
   "Delete this message and move to next nondeleted one.
 Deleted messages stay in the file until the \\[rmail-expunge] command is given.
@@ -599,7 +598,6 @@
 	(forward-line (if backward -1 1)))
       (setq count
 	    (if (> count 0) (1- count) (1+ count))))
-
     ;; Update the summary buffer current message counter and show the
     ;; message in the Rmail buffer.
     (rmail-summary-goto-msg (rmail-summary-get-message-at-point))))
@@ -1027,7 +1025,7 @@
       (forward-line 0))
     ;; Parse the message number.
     (string-to-number
-     (buffer-substring (point) (min (point-max) (+ 4 (point)))))))
+     (buffer-substring (point) (min (point-max) (+ 6 (point)))))))
 
 (defun rmail-summary-goto-msg (&optional n nowarn skip-rmail)
   "Go to message N in the summary buffer and the Rmail buffer.