1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00

Update for rmail-show-message -> rmail-show-message-1 name change.

This commit is contained in:
Glenn Morris 2009-02-13 07:44:18 +00:00
parent 574bc51d39
commit a1a2934181
4 changed files with 5 additions and 5 deletions

View File

@ -182,7 +182,7 @@ With prefix argument N moves forward N messages with these labels."
(error "No previous message with labels %s" labels)
(if (> n 0)
(error "No following message with labels %s" labels)
(rmail-show-message lastwin)))))
(rmail-show-message-1 lastwin)))))
(provide 'rmailkwd)

View File

@ -49,7 +49,7 @@ If FILE-NAME is empty, remove any existing inbox list."
(message "Setting the inbox list for %s for this session"
(file-name-nondirectory (buffer-file-name)))
(setq rmail-inbox-list inbox-list)))
(rmail-show-message rmail-current-message))
(rmail-show-message-1 rmail-current-message))
;; arch-tag: 94614a62-2a0a-4e25-bac9-06f461ed4c60
;;; rmailmsc.el ends here

View File

@ -155,7 +155,7 @@ Then display message number MSG."
(if (rmail-summary-exists)
(rmail-select-summary
(rmail-update-summary)))
(rmail-show-message msg)))
(rmail-show-message-1 msg)))
(defun rmail-convert-to-babyl-format ()
(let ((count 0) (start (point-min))
@ -392,7 +392,7 @@ Then display message number MSG."
(if (rmail-summary-exists)
(rmail-select-summary
(rmail-update-summary)))
(rmail-show-message msg)))
(rmail-show-message-1 msg)))
;;; There are functions elsewhere in Emacs that use this function;
;;; look at them before you change the calling method.

View File

@ -216,7 +216,7 @@ If 1st argument REVERSE is non-nil, sort them in reverse order.
(delete-char 1)
(setq quit-flag nil)
(rmail-set-message-counters)
(rmail-show-message current-message)
(rmail-show-message-1 current-message)
(if return-to-point
(goto-char return-to-point))
(if (rmail-summary-exists)