changeset 101993:1bb96ade4801

Update for rmail-show-message -> rmail-show-message-1 name change.
author Glenn Morris <rgm@gnu.org>
date Fri, 13 Feb 2009 07:44:18 +0000
parents ef7ed7efa61c
children 12c790fb58af
files lisp/mail/rmailkwd.el lisp/mail/rmailmsc.el lisp/mail/rmailout.el lisp/mail/rmailsort.el
diffstat 4 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailkwd.el	Fri Feb 13 07:43:50 2009 +0000
+++ b/lisp/mail/rmailkwd.el	Fri Feb 13 07:44:18 2009 +0000
@@ -182,7 +182,7 @@
 	(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)
 
--- a/lisp/mail/rmailmsc.el	Fri Feb 13 07:43:50 2009 +0000
+++ b/lisp/mail/rmailmsc.el	Fri Feb 13 07:44:18 2009 +0000
@@ -49,7 +49,7 @@
       (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
--- a/lisp/mail/rmailout.el	Fri Feb 13 07:43:50 2009 +0000
+++ b/lisp/mail/rmailout.el	Fri Feb 13 07:44:18 2009 +0000
@@ -155,7 +155,7 @@
     (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 @@
     (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.
--- a/lisp/mail/rmailsort.el	Fri Feb 13 07:43:50 2009 +0000
+++ b/lisp/mail/rmailsort.el	Fri Feb 13 07:44:18 2009 +0000
@@ -216,7 +216,7 @@
 	(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)