mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(rmail-summary-expunge-and-save): Do save-buffer last.

Browse Source 
Use two separate save-excursion calls.
(rmail-summary-input): Use pop-to-buffer.
(rmail-summary-get-new-mail): Gobble rmail-current-message;
later go to that message.
(rmail-summary-next-msg): Start at end of line, if moving forward.
Move to beginning of line, after the loop.
(rmail-new-summary): Fix format of elt in minor-mode-alist.
This commit is contained in:
Richard M. Stallman 1993-06-04 02:24:45 +00:00
parent 60f9aad3af
commit b37767e7ff
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/mail/rmailsum.el
View File

@ -186,7 +186,7 @@ nil for FUNCTION means all messages."
(setq buffer-read-only t)
(rmail-summary-mode)
(make-local-variable 'minor-mode-alist)
(setq minor-mode-alist (list ": " description))
(setq minor-mode-alist (list '(t (concat ": " description))))
(setq rmail-buffer rbuf
rmail-summary-redo redo-form
rmail-total-messages total))))
@ -362,7 +362,7 @@ With optional prefix argument NUMBER, moves forward this number of non-deleted
messages, or backward if NUMBER is negative."
(interactive "p")
(forward-line 0)
(and (> number 0) (forward-line 1))
(and (> number 0) (end-of-line))
(let ((count (if (< number 0) (- number) number))
(search (if (> number 0) 're-search-forward 're-search-backward))
(non-del-msg-found nil))
@ -370,6 +370,7 @@ messages, or backward if NUMBER is negative."
(or (funcall search "^.....[^D]" nil t)
non-del-msg-found)))
(setq count (1- count))))
(beginning-of-line)
(display-buffer rmail-buffer))
(defun rmail-summary-previous-msg (&optional number)
@ -677,24 +678,30 @@ Instead, all of the Rmail Mode commands are available, plus:
(interactive)
(save-excursion
(set-buffer rmail-buffer)
(rmail-only-expunge)
(rmail-only-expunge))
(rmail-update-summary)
(save-excursion
(set-buffer rmail-buffer)
(save-buffer))
(rmail-update-summary))
(save-buffer)))
(defun rmail-summary-get-new-mail ()
"Get new mail and recompute summary headers."
(interactive)
(save-excursion
(set-buffer rmail-buffer)
(rmail-get-new-mail)))
(let (msg)
(save-excursion
(set-buffer rmail-buffer)
(rmail-get-new-mail)
;; Get the proper new message number.
(setq msg rmail-current-message))
;; Make sure that message is displayed.
(rmail-summary-goto-msg msg)))
(defun rmail-summary-input (filename)
"Run Rmail on file FILENAME."
(interactive "FRun rmail on RMAIL file: ")
(save-excursion
(set-buffer rmail-buffer)
(rmail filename)))
;; We switch windows here, then display the other Rmail file there.
(pop-to-buffer rmail-buffer)
(rmail filename))
(defun rmail-summary-first-message ()
"Show first message in Rmail file from summary buffer."