]> code.delx.au - gnu-emacs/blobdiff - lisp/mh-e/mh-show.el
Merge from emacs-23
[gnu-emacs] / lisp / mh-e / mh-show.el
index 4b866d5ccfc6263feafaa0e2c0e74be9fda5bee8..1c2d7850d4420f7bd58c5268b5ac12ecd6d8f1b1 100644 (file)
@@ -169,16 +169,6 @@ displayed."
         (apply #'mh-speed-flists t folders)))
     (run-hooks 'mh-show-hook)))
 
-;;;###mh-autoload
-(defun mh-showing-mode (&optional arg)
-  "Change whether messages should be displayed.
-
-With ARG, display messages if ARG is positive, otherwise don't display them."
-  (setq mh-showing-mode
-        (if (null arg)
-            (not mh-showing-mode)
-          (> (prefix-numeric-value arg) 0))))
-
 ;;;###mh-autoload
 (defun mh-start-of-uncleaned-message ()
   "Position uninteresting headers off the top of the window."