734 |
(apply 'mh-write-msg-to-file msg (cdr mh-last-destination))) |
(apply 'mh-write-msg-to-file msg (cdr mh-last-destination))) |
735 |
(mh-next-msg interactive-flag) |
(mh-next-msg interactive-flag) |
736 |
(format "Destination: %s" (cdr mh-last-destination))))) |
(format "Destination: %s" (cdr mh-last-destination))))) |
737 |
(message output))) |
(message "%s" output))) |
738 |
|
|
739 |
(defun mh-quit () |
(defun mh-quit () |
740 |
"Quit the current MH-E folder. |
"Quit the current MH-E folder. |
778 |
(if (mh-in-show-buffer (mh-show-buffer) |
(if (mh-in-show-buffer (mh-show-buffer) |
779 |
(pos-visible-in-window-p (point-max))) |
(pos-visible-in-window-p (point-max))) |
780 |
(progn |
(progn |
781 |
(message (format |
(message |
782 |
"End of message (Type %s to read %s undeleted message)" |
"End of message (Type %s to read %s undeleted message)" |
783 |
(single-key-description last-input-event) |
(single-key-description last-input-event) |
784 |
(if (equal mh-next-direction 'backward) |
(if (equal mh-next-direction 'backward) |
785 |
"previous" |
"previous" |
786 |
"next"))) |
"next")) |
787 |
(setq mh-page-to-next-msg-flag t)) |
(setq mh-page-to-next-msg-flag t)) |
788 |
(scroll-other-window arg))) |
(scroll-other-window arg))) |
789 |
(mh-show))) |
(mh-show))) |