# HG changeset patch
# User Henrik Enberg <henrik.enberg@telia.com>
# Date 1137479534 0
# Node ID 49f75e9e02e5eec728f0d020a2499ed12d114406
# Parent  70ad16fb9d056377798a3c8bec7d6a587d71e57c
(rmail-summary-get-message-at-point): Handle 5-digit message ids.

diff -r 70ad16fb9d05 -r 49f75e9e02e5 lisp/mail/rmailsum.el
--- 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.