diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:35:36 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:35:36 +0000 |
| commit | 7271daf79bd8866c45c00d66157fab3d811c2ea4 (patch) | |
| tree | 0b44b3d5972fcaf744ace15958945a2e8c645850 /lisp | |
| parent | 349deff4c6b51955488062a6b14ade8fb1757b8c (diff) | |
| download | emacs-7271daf79bd8866c45c00d66157fab3d811c2ea4.tar.gz | |
(rmail-make-summary-line)
(rmail-make-summary-line-1, rmail-summary-next-same-subject)
(rmail-summary-goto-msg, rmail-summary-goto-msg): Allow
5 digit mesage ids instead of 4.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmailsum.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 9bcdd0c36ff..357790228ac 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -270,7 +270,7 @@ nil for FUNCTION means all messages." new-summary-line-count)) (rmail-make-summary-line-1 msg))))) ;; Fix up the part of the summary that says "deleted" or "unseen". - (aset line 4 + (aset line 5 (if (rmail-message-deleted-p msg) ?\D (if (= ?0 (char-after (+ 3 (rmail-msgbeg msg)))) ?\- ?\ ))) @@ -339,7 +339,7 @@ By default, `identity' is set." (setq pos (string-match "#" line)) (aset rmail-summary-vector (1- msg) (funcall rmail-summary-line-decoder - (concat (format "%4d " msg) + (concat (format "%5d " msg) (substring line 0 pos) labels (substring line (1+ pos))))) @@ -573,7 +573,7 @@ If N is negative, go backwards." ;; Get msg number of this line. (setq i (string-to-int (buffer-substring (point) - (min (point-max) (+ 5 (point)))))) + (min (point-max) (+ 6 (point)))))) ;; See if that msg has desired subject. (save-excursion (set-buffer rmail-buffer) @@ -1055,7 +1055,7 @@ If SKIP-RMAIL, don't do anything to the Rmail buffer." message-not-found (curmsg (string-to-int (buffer-substring (point) - (min (point-max) (+ 5 (point)))))) + (min (point-max) (+ 6 (point)))))) (total (save-excursion (set-buffer buf) rmail-total-messages))) ;; If message number N was specified, find that message's line ;; or set message-not-found. @@ -1071,7 +1071,7 @@ If SKIP-RMAIL, don't do anything to the Rmail buffer." (goto-char (point-max)) (rmail-summary-goto-msg nil nowarn skip-rmail))) (goto-char (point-min)) - (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t)) + (if (not (re-search-forward (format "^%5d[^0-9]" n) nil t)) (progn (or nowarn (message "Message %d not found" n)) (setq n curmsg) (setq message-not-found t) |