/[emacs]/emacs/lisp/mh-e/mh-e.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-e.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by lh, Wed Aug 10 19:40:23 2005 UTC revision 1.22 by deego, Sun Sep 18 12:48:32 2005 UTC
# Line 734  If INTERACTIVE-FLAG is non-nil then the Line 734  If INTERACTIVE-FLAG is non-nil then the
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.
# Line 778  bottom of the current message." Line 778  bottom of the current message."
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)))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26