From cd5fa050a8fe94a215dea48cc5bd785346fc64ca Mon Sep 17 00:00:00 2001 From: Henrik Enberg Date: Tue, 17 Jan 2006 06:32:32 +0000 Subject: [PATCH] (rmail-summary-get-message-at-point): Handle 5-digit message ids. --- lisp/mail/ChangeLog | 1 + lisp/mail/rmailsum.el | 4 +--- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/mail/ChangeLog b/lisp/mail/ChangeLog index fbbb467fb86..655a2ec953e 100644 --- a/lisp/mail/ChangeLog +++ b/lisp/mail/ChangeLog @@ -7,6 +7,7 @@ * rmailsum.el (rmail-summary-output-to-rmail-file): Use `rmail-output-read-file-name'. + (rmail-summary-get-message-at-point): Handle 5-digit message ids. * rmail.el (rmail-process-new-messages): Require rmailkwd. (rmail-ignored-headers): Add "Original-Recipient" diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 1819f4a2509..2e5dba0089b 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -577,7 +577,6 @@ If N is negative, go forwards instead." ;; 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 @@ a negative argument means to delete and move backward." (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 @@ If the summary buffer contains no messages, nil is returned." (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. -- 2.39.2