mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-summary-goto-msg): Get rmail-total-messages from the rmail buffer.

Browse source
This commit is contained in:
Richard M. Stallman 1994-10-06 07:05:09 +00:00
parent 4baa8a8329
commit 132ad5641e
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/mail/rmailsum.el
View file

@ -786,13 +786,14 @@ Commands for sorting the summary:
(if (consp n) (setq n (prefix-numeric-value n)))
(if (eobp) (forward-line -1))
(beginning-of-line)
(let ((obuf (current-buffer))
(buf rmail-buffer)
(cur (point))
message-not-found
(curmsg (string-to-int
(buffer-substring (point)
(min (point-max) (+ 5 (point)))))))
(let* ((obuf (current-buffer))
(buf rmail-buffer)
(cur (point))
message-not-found
(curmsg (string-to-int
(buffer-substring (point)
(min (point-max) (+ 5 (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.
;; If N wasn't specified or that message can't be found.
@ -802,7 +803,7 @@ Commands for sorting the summary:
(if (< n 1)
(progn (message "No preceding message")
(setq n 1)))
(if (> n rmail-total-messages)
(if (> n total)
(progn (message "No following message")
(goto-char (point-max))
(rmail-summary-goto-msg)))