(pr-mh-get-msg-num, pr-mh-show)

(pr-mh-start-of-uncleaned-message): Remove aliases only used to
silence compiler.  Instead...
(mh-get-msg-num, mh-show, mh-start-of-uncleaned-message): ...Declare.
(mh-show-buffer): Only define for compiler.
(pr-mh-current-message): Update for above function name changes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85d4a348209d76766f88d82f6f2e939f4723993a..b8e2192d0e0188d9944d5cedfb4b103a55d64607 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2009-07-21  Glenn Morris  <rgm@gnu.org>
 
+       * printing.el (pr-mh-get-msg-num, pr-mh-show)
+       (pr-mh-start-of-uncleaned-message): Remove aliases only used to
+       silence compiler.  Instead...
+       (mh-get-msg-num, mh-show, mh-start-of-uncleaned-message): ...Declare.
+       (mh-show-buffer): Only define for compiler.
+       (pr-mh-current-message): Update for above function name changes.
+
        * files.el (abort-if-file-too-large): Explicitly pass `filename'
        as an argument.
        (find-file-noselect, insert-file-1): Update for above change.

diff --git a/lisp/printing.el b/lisp/printing.el
index 53167aa4ef3ddf31604c3c3c5f14fafa30b5931f..5d101b40b2a68acb38245eb0ab5fd8190874b482 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -4956,11 +4956,10 @@ Or choose the menu option Printing/Show Settings/lpr."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; mh-e (adapted from mh-e-init.el -- Tom Vogels <tov@ece.cmu.edu>)
 
-
-(defalias 'pr-mh-get-msg-num 'mh-get-msg-num)
-(defalias 'pr-mh-show 'mh-show)
-(defalias 'pr-mh-start-of-uncleaned-message 'mh-start-of-uncleaned-message)
-(defvar mh-show-buffer nil)
+(declare-function mh-get-msg-num "mh-utils" (error-if-no-message))
+(declare-function mh-show "mh-show" (&optional message redisplay-flag))
+(declare-function mh-start-of-uncleaned-message "mh-show" ())
+(defvar mh-show-buffer)
 
 
 (defun pr-article-date ()
@@ -4976,11 +4975,11 @@ Return only the dayname, if present, weekday, month, and year."
 
 (defun pr-mh-current-message ()
   "Go to mh-inbox current message."
-  (let ((msg (or (pr-mh-get-msg-num nil) 0)))
-    (pr-mh-show)
+  (let ((msg (or (mh-get-msg-num nil) 0)))
+    (mh-show)
     (set-buffer mh-show-buffer)
     (goto-char (point-min))
-    (pr-mh-start-of-uncleaned-message)
+    (mh-start-of-uncleaned-message)
     (message "Printing message %d" msg)))