lisp/mh-e/mh-letter.el

30 ;; Mode for composing and sending a draft message.
35 ;; a message is actually composed.
43 (require 'gnus-util)
91       mh-mml-secure-message-sign mh-pgp-support-flag]
93       mh-mml-secure-message-encrypt mh-pgp-support-flag]
95       mh-mml-secure-message-signencrypt mh-pgp-support-flag]
97       mh-mml-unsecure-message mh-pgp-support-flag]
134 (gnus-define-keys  mh-letter-mode-map
164   "\C-c\C-m\C-e"        mh-mml-secure-message-encrypt
169   "\C-c\C-m\C-n"        mh-mml-unsecure-message
170   "\C-c\C-m\C-s"        mh-mml-secure-message-sign
174   "\C-c\C-mee"          mh-mml-secure-message-encrypt
175   "\C-c\C-mes"          mh-mml-secure-message-signencrypt
180   "\C-c\C-mn"           mh-mml-unsecure-message
181   "\C-c\C-mse"          mh-mml-secure-message-signencrypt
182   "\C-c\C-mss"          mh-mml-secure-message-sign
212      "  Current message:      \\[mh-yank-cur-msg]\n"
217      "  Encrypt message:      \\[mh-mml-secure-message-encrypt]\n"
218      "  Sign message:         \\[mh-mml-secure-message-sign]\n"
219      "  Sign+Encrypt message: \\[mh-mml-secure-message-signencrypt]"))
268   "Find the end of the message header.
287 (put 'mh-letter-mode 'mode-class 'special)
294 the message using the MH mail handling system.
305 When a message is composed, the hooks `text-mode-hook',
340         (equal mh-highlight-citation-style 'gnus))
341     ;; Let's use font-lock even if gnus is used in show-mode.  The reason
342     ;; is that gnus uses static text properties which are not appropriate
378     (message "Checking recipients...")
383     (message "Checking recipients...done")))
385 (defun mh-insert-letter (folder message verbatim)
386   "Insert a message.
389 defaults to the current message in that folder. It then inserts
390 the message, indented by `mh-ins-buf-prefix' (\"> \") unless
392 which case supercite is used to format the message. Certain
398 message is not indented, and \"> \" is not inserted before each line.
407           (message
416      (list folder message current-prefix-arg)))
417   (if (equal message "")
418       (error "No message number given"))
423        (expand-file-name message (mh-expand-file-name folder)))
433   "Insert signature in message.
496             (message "No signature found")))))
504 alias completion. In the body of the message, this command runs
557 Within the header of the message, this command moves between
561 command then moves point to the message body before cycling back
563 the message body, then this command indents by calling
578 body of the message after the first field. Unlike the command
606         (message "Sorry, point seems to be within the line prefix")
620                       (or (and mh-default-folder-for-message-function
624                                   mh-default-folder-for-message-function)))
682   "Insert the current message into the draft buffer.
687 text from the message to which you're replying, and inserting
696 containing the original message after yanking it to make more
699 You can control how the message to which you are replying is
724         (set-buffer mh-show-buffer)     ; Find displayed message
776     (error "There is no current message")))
784   "Perform auto-fill for message.
832 If we are at the last header field go to the start of the message
893            (message "Completed: %s" word))
897            (message "No completion for %s" word))