# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1248151654 0
# Node ID d41cacce56573430514d2b43736de8f289802037
# Parent  a909fa4b5bddd6a86e0bdff209b24a595cd25b24
(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 -r a909fa4b5bdd -r d41cacce5657 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jul 21 04:42:55 2009 +0000
+++ b/lisp/ChangeLog	Tue Jul 21 04:47:34 2009 +0000
@@ -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 -r a909fa4b5bdd -r d41cacce5657 lisp/printing.el
--- a/lisp/printing.el	Tue Jul 21 04:42:55 2009 +0000
+++ b/lisp/printing.el	Tue Jul 21 04:47:34 2009 +0000
@@ -4956,11 +4956,10 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; 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 @@
 
 (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)))