home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mh-e.pat / mh-e
Lisp/Scheme  |  1993-01-22  |  40KB  |  1,264 lines
  1. *** /tmp/,RCSt1a23165    Wed Jan 20 11:15:09 1993
  2. --- mh-e.el    Wed Jan 20 11:13:30 1993
  3. ***************
  4. *** 5,10
  5.   (setq mh-e-time-stamp "92/01/21 10:59:18 gildea")
  6.   (provide 'mh-e)
  7.   
  8.   ;;; Copyright (c) 1985,1986,1987,1988,1990,1992 Free Software Foundation
  9.   ;;;     Maintainer:  Stephen Gildea <gildea@lcs.mit.edu>
  10.   ;;;    Please send suggestions and corrections to the above address.
  11.  
  12. --- 5,12 -----
  13.   (setq mh-e-time-stamp "92/01/21 10:59:18 gildea")
  14.   (provide 'mh-e)
  15.   
  16. + (require 'mh-db)
  17. + 
  18.   ;;; Copyright (c) 1985,1986,1987,1988,1990,1992 Free Software Foundation
  19.   ;;;     Maintainer:  Stephen Gildea <gildea@lcs.mit.edu>
  20.   ;;;    Please send suggestions and corrections to the above address.
  21. ***************
  22. *** 57,63
  23.   ;;;(defvar mh-lib "/usr/new/lib/mh/" "Directory of MH library.")
  24.   
  25.   (defvar mh-redist-full-contents nil
  26. !   "Non-nil if the `dist' command needs whole letter for redistribution.
  27.   This is the case when `send' is compiled with the BERK option.")
  28.   
  29.   
  30.  
  31. --- 59,65 -----
  32.   ;;;(defvar mh-lib "/usr/new/lib/mh/" "Directory of MH library.")
  33.   
  34.   (defvar mh-redist-full-contents nil
  35. !   "*Non-nil if the `dist' command needs whole letter for redistribution.
  36.   This is the case when `send' is compiled with the BERK option.")
  37.   
  38.   
  39. ***************
  40. *** 85,90
  41.   (defvar mh-quit-hook nil
  42.     "Invoked after quitting mh-e by \\[mh-quit].  See also  mh-before-quit-hook")
  43.   
  44.   
  45.   (defvar mh-ins-string nil
  46.     "Temporarily set by `mh-insert-prefix' prior to running `mh-yank-hooks'.")
  47.  
  48. --- 87,101 -----
  49.   (defvar mh-quit-hook nil
  50.     "Invoked after quitting mh-e by \\[mh-quit].  See also  mh-before-quit-hook")
  51.   
  52. + (defvar mh-signature-func nil
  53. +   "Function to call to obtain a signature when `mh-insert-signature' is called.
  54. + If `mh-signature-func' is nil, the old-style behavior of inserting the
  55. + contents of ~/.signature occurs.  If `mh-signature-func' is non-nil, it is the
  56. + function to invoke to obtain a signature.  If the function returns a string,
  57. + the string is assumed to be the name of the file to insert.  If the function
  58. + returns a list, the list must contain only a single string, which is inserted
  59. + verbatim into the buffer.  If the function returns anything else (like `nil'),
  60. + the contents of ~/.signature are inserted.
  61.   
  62.   When the function is called, the current buffer is the draft buffer, which can
  63.   be scanned by the function to determine an appropriate signature.
  64. ***************
  65. *** 86,91
  66.     "Invoked after quitting mh-e by \\[mh-quit].  See also  mh-before-quit-hook")
  67.   
  68.   
  69.   (defvar mh-ins-string nil
  70.     "Temporarily set by `mh-insert-prefix' prior to running `mh-yank-hooks'.")
  71.   
  72.  
  73. --- 97,108 -----
  74.   verbatim into the buffer.  If the function returns anything else (like `nil'),
  75.   the contents of ~/.signature are inserted.
  76.   
  77. + When the function is called, the current buffer is the draft buffer, which can
  78. + be scanned by the function to determine an appropriate signature.
  79. + 
  80. + `mh-signature-func' is similar to a hook, except that hooks do not return
  81. + values.")
  82. + 
  83.   (defvar mh-ins-string nil
  84.     "Temporarily set by `mh-insert-prefix' prior to running `mh-yank-hooks'.")
  85.   
  86. ***************
  87. *** 118,124
  88.   A value of T means use the default format file.
  89.   Nil means don't use mhl to format messages.")
  90.   
  91. ! (defvar mh-lpr-command-format "lpr -p -J '%s'"
  92.     "*Format for Unix command that prints a message.
  93.   The string should be a Unix command line, with the string '%s' where
  94.   the job's name (folder and message number) should appear.  The message text
  95.  
  96. --- 135,144 -----
  97.   A value of T means use the default format file.
  98.   Nil means don't use mhl to format messages.")
  99.   
  100. ! (defvar mh-lpr-command-format (cond ((eq system-type 'hpux)
  101. !                      "fold -80 | pr -h '%s' | lp")
  102. !                     (t "lpr -p -J '%s'")
  103. !                     )
  104.     "*Format for Unix command that prints a message.
  105.   The string should be a Unix command line, with the string '%s' where
  106.   the job's name (folder and message number) should appear.  The message text
  107. ***************
  108. *** 247,253
  109.     "User's mail folder.")
  110.   
  111.   (defvar mh-last-destination nil
  112. !   "Destination of last refile or write command.")
  113.   
  114.   (defvar mh-folder-mode-map (make-keymap)
  115.     "Keymap for MH folders.")
  116.  
  117. --- 267,274 -----
  118.     "User's mail folder.")
  119.   
  120.   (defvar mh-last-destination nil
  121. !   "Destination of last refile or write command.
  122. ! `(car mh-last-destination)' is one of 'refile, 'write, or 'other.")
  123.   
  124.   (defvar mh-folder-mode-map (make-keymap)
  125.     "Keymap for MH folders.")
  126. ***************
  127. *** 471,478
  128.          (message "Does not appear to be a rejected letter.")))
  129.       (goto-char (point-min))
  130.       (set-buffer-modified-p nil)
  131. !     (mh-compose-and-send-mail draft "" from-folder msg (mh-get-field "To")
  132. !                   (mh-get-field "From") (mh-get-field "cc")
  133.                     nil nil config)))
  134.   
  135.   
  136.  
  137. --- 492,499 -----
  138.          (message "Does not appear to be a rejected letter.")))
  139.       (goto-char (point-min))
  140.       (set-buffer-modified-p nil)
  141. !     (mh-compose-and-send-mail draft "" from-folder msg (mh-get-field "To:")
  142. !                   (mh-get-field "From:") (mh-get-field "cc:")
  143.                     nil nil config)))
  144.   
  145.   
  146. ***************
  147. *** 489,496
  148.                (if current-prefix-arg
  149.                (mh-read-seq-default "Forward" t)
  150.                (mh-get-msg-num t))
  151. !              (read-string "To: ")
  152. !              (read-string "Cc: ")))
  153.     (let* ((folder mh-current-folder)
  154.        (config (current-window-configuration))
  155.        ;; forw always leaves file in "draft" since it doesn't have -draft
  156.  
  157. --- 510,517 -----
  158.                (if current-prefix-arg
  159.                (mh-read-seq-default "Forward" t)
  160.                (mh-get-msg-num t))
  161. !              (mh-read-to-address)
  162. !              (mh-read-cc-address)))
  163.     (let* ((folder mh-current-folder)
  164.        (config (current-window-configuration))
  165.        ;; forw always leaves file in "draft" since it doesn't have -draft
  166. ***************
  167. *** 569,574
  168.       (if (not maildrop-name)
  169.       (cond ((not (get-buffer "+inbox"))
  170.              (mh-make-folder "+inbox")
  171.              (setq mh-previous-window-config config))
  172.             ((not (eq (current-buffer) (get-buffer "+inbox")))
  173.              (switch-to-buffer "+inbox")
  174.  
  175. --- 590,596 -----
  176.       (if (not maildrop-name)
  177.       (cond ((not (get-buffer "+inbox"))
  178.              (mh-make-folder "+inbox")
  179. +            (delete-other-windows)
  180.              (setq mh-previous-window-config config))
  181.             ((not (eq (current-buffer) (get-buffer "+inbox")))
  182.              (switch-to-buffer "+inbox")
  183. ***************
  184. *** 572,577
  185.              (setq mh-previous-window-config config))
  186.             ((not (eq (current-buffer) (get-buffer "+inbox")))
  187.              (switch-to-buffer "+inbox")
  188.              (setq mh-previous-window-config config)))))
  189.     (mh-get-new-mail maildrop-name)
  190.     (run-hooks 'mh-inc-folder-hook))
  191.  
  192. --- 594,600 -----
  193.              (setq mh-previous-window-config config))
  194.             ((not (eq (current-buffer) (get-buffer "+inbox")))
  195.              (switch-to-buffer "+inbox")
  196. +            (delete-other-windows)
  197.              (setq mh-previous-window-config config)))))
  198.     (mh-get-new-mail maildrop-name)
  199.     (run-hooks 'mh-inc-folder-hook))
  200. ***************
  201. *** 653,659
  202.        (mh-maybe-show))
  203.       (t
  204.        (forward-line -1)
  205. !      (if (get-buffer mh-show-buffer)
  206.            (delete-windows-on mh-show-buffer)))))
  207.   
  208.   
  209.  
  210. --- 676,682 -----
  211.        (mh-maybe-show))
  212.       (t
  213.        (forward-line -1)
  214. !      (if (mh-get-buffer mh-show-buffer)
  215.            (delete-windows-on mh-show-buffer)))))
  216.   
  217.   
  218. ***************
  219. *** 684,690
  220.       (shell-command-on-region (point) (point-max) command nil)))
  221.   
  222.   
  223. ! (defun mh-refile-msg (prefix-provided msg-or-seq dest)
  224.     "Refile MESSAGE(s) (default: displayed message) in FOLDER.
  225.   If optional prefix argument provided, then prompt for message sequence."
  226.     (interactive
  227.  
  228. --- 707,713 -----
  229.       (shell-command-on-region (point) (point-max) command nil)))
  230.   
  231.   
  232. ! (defun mh-refile-msg (prefix-provided msg-or-seq folder)
  233.     "Refile MESSAGE(s) (default: displayed message) in FOLDER.
  234.   If optional prefix argument provided, then prompt for message sequence.
  235.   If mh-auto-folder-alist is non-nil, it will be used to determine the name
  236. ***************
  237. *** 686,692
  238.   
  239.   (defun mh-refile-msg (prefix-provided msg-or-seq dest)
  240.     "Refile MESSAGE(s) (default: displayed message) in FOLDER.
  241. ! If optional prefix argument provided, then prompt for message sequence."
  242.     (interactive
  243.      (list current-prefix-arg
  244.        (if current-prefix-arg
  245.  
  246. --- 709,718 -----
  247.   
  248.   (defun mh-refile-msg (prefix-provided msg-or-seq folder)
  249.     "Refile MESSAGE(s) (default: displayed message) in FOLDER.
  250. ! If optional prefix argument provided, then prompt for message sequence.
  251. ! If mh-auto-folder-alist is non-nil, it will be used to determine the name
  252. ! of the default folder.
  253. ! "
  254.     (interactive
  255.      ;; Here, we want to preserve the value of mh-showing, while preserving
  256.      ;; the current value.
  257. ***************
  258. *** 688,696
  259.     "Refile MESSAGE(s) (default: displayed message) in FOLDER.
  260.   If optional prefix argument provided, then prompt for message sequence."
  261.     (interactive
  262. !    (list current-prefix-arg
  263. !      (if current-prefix-arg
  264. !          (mh-read-seq-default "Refile" t)
  265.            (mh-get-msg-num t))
  266.        (intern
  267.         (mh-prompt-for-folder "Destination"
  268.  
  269. --- 714,725 -----
  270.   of the default folder.
  271.   "
  272.     (interactive
  273. !    ;; Here, we want to preserve the value of mh-showing, while preserving
  274. !    ;; the current value.
  275. !    (let ( (mh-showing (and (boundp 'mh-showing) mh-showing)) )
  276. !      (list current-prefix-arg
  277. !        (if current-prefix-arg
  278. !            (mh-read-seq-default "Refile" t)
  279.            (mh-get-msg-num t))
  280.          (intern
  281.           (mh-prompt-for-folder "Destination"
  282. ***************
  283. *** 692,704
  284.        (if current-prefix-arg
  285.            (mh-read-seq-default "Refile" t)
  286.            (mh-get-msg-num t))
  287. !      (intern
  288. !       (mh-prompt-for-folder "Destination"
  289. !                 (if (eq 'refile (car mh-last-destination))
  290. !                     (symbol-name (cdr mh-last-destination))
  291. !                     "")
  292. !                 t))))
  293. !   (setq mh-last-destination (cons 'refile dest))
  294.     (if prefix-provided
  295.         (mh-map-to-seq-msgs 'mh-refile-a-msg msg-or-seq dest)
  296.         (mh-refile-a-msg msg-or-seq dest))
  297.  
  298. --- 721,731 -----
  299.          (if current-prefix-arg
  300.              (mh-read-seq-default "Refile" t)
  301.            (mh-get-msg-num t))
  302. !        (intern
  303. !         (mh-prompt-for-folder "Destination"
  304. !                   (mh-get-default-refile-folder)
  305. !                   t)))))
  306. !   (setq mh-last-destination (cons 'refile folder))
  307.     (if prefix-provided
  308.         (mh-map-to-seq-msgs 'mh-refile-a-msg msg-or-seq folder)
  309.         (mh-refile-a-msg msg-or-seq folder))
  310. ***************
  311. *** 700,707
  312.                   t))))
  313.     (setq mh-last-destination (cons 'refile dest))
  314.     (if prefix-provided
  315. !       (mh-map-to-seq-msgs 'mh-refile-a-msg msg-or-seq dest)
  316. !       (mh-refile-a-msg msg-or-seq dest))
  317.     (mh-next-msg))
  318.   
  319.   
  320.  
  321. --- 727,734 -----
  322.                     t)))))
  323.     (setq mh-last-destination (cons 'refile folder))
  324.     (if prefix-provided
  325. !       (mh-map-to-seq-msgs 'mh-refile-a-msg msg-or-seq folder)
  326. !       (mh-refile-a-msg msg-or-seq folder))
  327.     (mh-next-msg))
  328.   
  329.   
  330. ***************
  331. *** 787,792
  332.   configuration, if one exists.  Finish by running mh-quit-hook."
  333.     (interactive)
  334.     (run-hooks 'mh-before-quit-hook)
  335.     (if mh-previous-window-config
  336.         (set-window-configuration mh-previous-window-config))
  337.     (run-hooks 'mh-quit-hook))
  338.  
  339. --- 814,823 -----
  340.   configuration, if one exists.  Finish by running mh-quit-hook."
  341.     (interactive)
  342.     (run-hooks 'mh-before-quit-hook)
  343. +   (if mh-current-folder
  344. +       (bury-buffer mh-current-folder))
  345. +   (if (and mh-show-buffer (get-buffer mh-show-buffer))
  346. +       (bury-buffer mh-show-buffer))
  347.     (if mh-previous-window-config
  348.         (set-window-configuration mh-previous-window-config))
  349.     (mh-save-variables)
  350. ***************
  351. *** 789,794
  352.     (run-hooks 'mh-before-quit-hook)
  353.     (if mh-previous-window-config
  354.         (set-window-configuration mh-previous-window-config))
  355.     (run-hooks 'mh-quit-hook))
  356.   
  357.   
  358.  
  359. --- 820,826 -----
  360.         (bury-buffer mh-show-buffer))
  361.     (if mh-previous-window-config
  362.         (set-window-configuration mh-previous-window-config))
  363. +   (mh-save-variables)
  364.     (run-hooks 'mh-quit-hook))
  365.   
  366.   
  367. ***************
  368. *** 858,864
  369.     (cond ((re-search-backward mh-good-msg-regexp nil 0 arg)
  370.        (mh-maybe-show))
  371.       (t
  372. !      (if (get-buffer mh-show-buffer)
  373.            (delete-windows-on mh-show-buffer)))))
  374.   
  375.   
  376.  
  377. --- 890,896 -----
  378.     (cond ((re-search-backward mh-good-msg-regexp nil 0 arg)
  379.        (mh-maybe-show))
  380.       (t
  381. !      (if (mh-get-buffer mh-show-buffer)
  382.            (delete-windows-on mh-show-buffer)))))
  383.   
  384.   
  385. ***************
  386. *** 929,935
  387.   messages to display.  Otherwise show the entire folder."
  388.     (interactive (list (if current-prefix-arg
  389.                (mh-read-msg-range "Range to scan [all]? ")
  390. !              nil)))
  391.     (setq mh-next-direction 'forward)
  392.     (mh-scan-folder mh-current-folder (or range "all")))
  393.   
  394.  
  395. --- 961,967 -----
  396.   messages to display.  Otherwise show the entire folder."
  397.     (interactive (list (if current-prefix-arg
  398.                (mh-read-msg-range "Range to scan [all]? ")
  399. !              "")))
  400.     (setq mh-next-direction 'forward)
  401.     (mh-scan-folder mh-current-folder (if (string= range "")
  402.                       "all"
  403. ***************
  404. *** 931,937
  405.                (mh-read-msg-range "Range to scan [all]? ")
  406.                nil)))
  407.     (setq mh-next-direction 'forward)
  408. !   (mh-scan-folder mh-current-folder (or range "all")))
  409.   
  410.   
  411.   (defun mh-redistribute (to cc msg)
  412.  
  413. --- 963,971 -----
  414.                (mh-read-msg-range "Range to scan [all]? ")
  415.                "")))
  416.     (setq mh-next-direction 'forward)
  417. !   (mh-scan-folder mh-current-folder (if (string= range "")
  418. !                     "all"
  419. !                       range)))
  420.   
  421.   
  422.   (defun mh-redistribute (to cc msg)
  423. ***************
  424. *** 938,945
  425.     "Redistribute a letter.
  426.   Depending on how your copy of MH was compiled, you may need to change the
  427.   setting of the variable mh-redist-full-contents.  See its documentation."
  428. !   (interactive (list (read-string "Redist-To: ")
  429. !              (read-string "Redist-Cc: ")
  430.                (mh-get-msg-num t)))
  431.     (save-window-excursion
  432.       (let ((folder mh-current-folder)
  433.  
  434. --- 972,979 -----
  435.     "Redistribute a letter.
  436.   Depending on how your copy of MH was compiled, you may need to change the
  437.   setting of the variable mh-redist-full-contents.  See its documentation."
  438. !   (interactive (list (mh-read-to-address "Redist-To: ")
  439. !              (mh-read-cc-address "Redist-Cc: ")
  440.                (mh-get-msg-num t)))
  441.     (save-window-excursion
  442.       (let ((folder mh-current-folder)
  443. ***************
  444. *** 1011,1017
  445.   The letter is composed in mh-letter-mode; see its documentation for more
  446.   details.  If `mh-compose-letter-function' is defined, it is called on the
  447.   draft and passed three arguments: to, subject, and cc."
  448. !   (interactive "sTo: \nsCc: \nsSubject: ")
  449.     (let ((config (current-window-configuration)))
  450.       (delete-other-windows)
  451.       (mh-send-sub to cc subject config)))
  452.  
  453. --- 1045,1051 -----
  454.   The letter is composed in mh-letter-mode; see its documentation for more
  455.   details.  If `mh-compose-letter-function' is defined, it is called on the
  456.   draft and passed three arguments: to, subject, and cc."
  457. !   (interactive (mh-read-to-cc-subject))
  458.     (let ((config (current-window-configuration)))
  459.       (delete-other-windows)
  460.       (mh-send-sub to cc subject config)))
  461. ***************
  462. *** 1019,1025
  463.   
  464.   (defun mh-send-other-window (to cc subject)
  465.     "Compose and send a letter in another window.."
  466. !   (interactive "sTo: \nsCc: \nsSubject: ")
  467.     (let ((pop-up-windows t))
  468.       (mh-send-sub to cc subject (current-window-configuration))))
  469.   
  470.  
  471. --- 1053,1059 -----
  472.   
  473.   (defun mh-send-other-window (to cc subject)
  474.     "Compose and send a letter in another window.."
  475. !   (interactive (mh-read-to-cc-subject))
  476.     (let ((pop-up-windows t))
  477.       (mh-send-sub to cc subject (current-window-configuration))))
  478.   
  479. ***************
  480. *** 1059,1065
  481.         (setq msg (mh-get-msg-num t)))
  482.     (setq mh-showing t)
  483.     (mh-set-mode-name "mh-e show")
  484. !   (if (not (eql (next-window (minibuffer-window)) (selected-window)))
  485.         (delete-other-windows))        ; force ourself to the top window
  486.     (let ((folder mh-current-folder))
  487.       (mh-show-message-in-other-window)
  488.  
  489. --- 1093,1099 -----
  490.         (setq msg (mh-get-msg-num t)))
  491.     (setq mh-showing t)
  492.     (mh-set-mode-name "mh-e show")
  493. !   (if (not (eql (minibuffer-window) (selected-window)))
  494.         (delete-other-windows))        ; force ourself to the top window
  495.     (let ((folder mh-current-folder))
  496.       (mh-show-message-in-other-window)
  497. ***************
  498. *** 1193,1199
  499.     (interactive (list (mh-prompt-for-folder "Visit" "+inbox" t)
  500.                (mh-read-msg-range "Range [all]? ")))
  501.     (let ((config (current-window-configuration)))
  502. !     (mh-scan-folder folder (or range "all"))
  503.       (setq mh-previous-window-config config))
  504.     nil)
  505.   
  506.  
  507. --- 1227,1235 -----
  508.     (interactive (list (mh-prompt-for-folder "Visit" "+inbox" t)
  509.                (mh-read-msg-range "Range [all]? ")))
  510.     (let ((config (current-window-configuration)))
  511. !    (mh-scan-folder folder (if (string= range "")
  512. !                   "all"
  513. !                 range))
  514.       (setq mh-previous-window-config config))
  515.     nil)
  516.   
  517. ***************
  518. *** 1300,1306
  519.   
  520.   (defun mh-invalidate-show-buffer ()
  521.     ;; Invalidate the show buffer so we must update it to use it.
  522. !   (if (get-buffer mh-show-buffer)
  523.         (save-excursion
  524.       (set-buffer mh-show-buffer)
  525.       (setq buffer-file-name nil))))
  526.  
  527. --- 1336,1342 -----
  528.   
  529.   (defun mh-invalidate-show-buffer ()
  530.     ;; Invalidate the show buffer so we must update it to use it.
  531. !   (if (mh-get-buffer mh-show-buffer)
  532.         (save-excursion
  533.       (set-buffer mh-show-buffer)
  534.       (setq buffer-file-name nil))))
  535. ***************
  536. *** 1307,1313
  537.   
  538.   
  539.   (defun mh-show-message-in-other-window ()
  540. !   (switch-to-buffer-other-window mh-show-buffer)
  541.     (if mh-bury-show-buffer (bury-buffer (current-buffer))))
  542.   
  543.   
  544.  
  545. --- 1343,1349 -----
  546.   
  547.   
  548.   (defun mh-show-message-in-other-window ()
  549. !   (switch-to-buffer-other-window (mh-get-buffer mh-show-buffer))
  550.     (if mh-bury-show-buffer (bury-buffer (current-buffer))))
  551.   
  552.   
  553. ***************
  554. *** 1404,1410
  555.     ;; Move backward or forward to the next undeleted message in the buffer.
  556.     (if (eq mh-next-direction 'forward)
  557.         (mh-next-undeleted-msg 1)
  558. !       (mh-previous-undeleted-msg 1)))
  559.   
  560.   
  561.   (defun mh-set-scan-mode ()
  562.  
  563. --- 1440,1446 -----
  564.     ;; Move backward or forward to the next undeleted message in the buffer.
  565.     (if (eq mh-next-direction 'forward)
  566.         (mh-next-undeleted-msg 1)
  567. !     (mh-previous-undeleted-msg 1)))
  568.   
  569.   
  570.   (defun mh-set-scan-mode ()
  571. ***************
  572. *** 1409,1415
  573.   
  574.   (defun mh-set-scan-mode ()
  575.     ;; Display the scan listing buffer, but do not show a message.
  576. !   (if (get-buffer mh-show-buffer)
  577.         (delete-windows-on mh-show-buffer))
  578.     (mh-set-mode-name "mh-e scan")
  579.     (setq mh-showing nil)
  580.  
  581. --- 1445,1451 -----
  582.   
  583.   (defun mh-set-scan-mode ()
  584.     ;; Display the scan listing buffer, but do not show a message.
  585. !   (if (mh-get-buffer mh-show-buffer)
  586.         (delete-windows-on mh-show-buffer))
  587.     (mh-set-mode-name "mh-e scan")
  588.     (setq mh-showing nil)
  589. ***************
  590. *** 1429,1434
  591.     (save-excursion (set-buffer (other-buffer)))
  592.     (set-buffer-modified-p (buffer-modified-p)))
  593.   
  594.   
  595.   
  596.   ;;; The folder data abstraction.
  597.  
  598. --- 1465,1479 -----
  599.     (save-excursion (set-buffer (other-buffer)))
  600.     (set-buffer-modified-p (buffer-modified-p)))
  601.   
  602. + 
  603. + (defun mh-get-buffer (buf)
  604. +   "Create buffer BUF and mark it as not keeping undo information."
  605. +   (let ( (buffer (get-buffer-create buf)) )
  606. +     (buffer-flush-undo buffer)
  607. +     buffer
  608. +     ))
  609. + 
  610. + 
  611.   
  612.   
  613.   ;;; The folder data abstraction.
  614. ***************
  615. *** 1539,1544
  616.     (setq write-file-hooks '(mh-execute-commands))
  617.     (make-local-variable 'revert-buffer-function)
  618.     (setq revert-buffer-function 'mh-undo-folder)
  619.     (run-hooks 'mh-folder-mode-hook))
  620.   
  621.   
  622.  
  623. --- 1584,1590 -----
  624.     (setq write-file-hooks '(mh-execute-commands))
  625.     (make-local-variable 'revert-buffer-function)
  626.     (setq revert-buffer-function 'mh-undo-folder)
  627. +   (mh-load-variables-if-necessary)
  628.     (run-hooks 'mh-folder-mode-hook))
  629.   
  630.   
  631. ***************
  632. *** 1569,1575
  633.   
  634.   (defun mh-regenerate-headers (range)
  635.     ;; Replace buffer with scan of its contents over range RANGE.
  636. !   (let ((folder mh-current-folder))
  637.       (message "Scanning %s..." folder)
  638.       (with-mh-folder-updating (nil)
  639.         (erase-buffer)
  640.  
  641. --- 1615,1626 -----
  642.   
  643.   (defun mh-regenerate-headers (range)
  644.     ;; Replace buffer with scan of its contents over range RANGE.
  645. !   (let ((folder mh-current-folder)
  646. !     real-folder
  647. !     index-cache-dir
  648. !     index-cache
  649. !     (downcase-range (downcase range))
  650. !     )
  651.       (message "Scanning %s..." folder)
  652.       (setq real-folder (substring folder 1))
  653.       (setq index-cache-dir (concat mh-user-path real-folder))
  654. ***************
  655. *** 1571,1576
  656.     ;; Replace buffer with scan of its contents over range RANGE.
  657.     (let ((folder mh-current-folder))
  658.       (message "Scanning %s..." folder)
  659.       (with-mh-folder-updating (nil)
  660.         (erase-buffer)
  661.         (mh-exec-cmd-output "scan" nil
  662.  
  663. --- 1622,1630 -----
  664.       (downcase-range (downcase range))
  665.       )
  666.       (message "Scanning %s..." folder)
  667. +     (setq real-folder (substring folder 1))
  668. +     (setq index-cache-dir (concat mh-user-path real-folder))
  669. +     (setq index-cache (concat mh-user-path real-folder "/.mh-e-index"))
  670.       (with-mh-folder-updating (nil)
  671.         (erase-buffer)
  672.         (setq truncate-lines t)
  673. ***************
  674. *** 1573,1582
  675.       (message "Scanning %s..." folder)
  676.       (with-mh-folder-updating (nil)
  677.         (erase-buffer)
  678. !       (mh-exec-cmd-output "scan" nil
  679. !               "-noclear" "-noheader"
  680. !               "-width" (window-width)
  681. !               folder range)
  682.         (goto-char (point-min))
  683.         (cond ((looking-at "scan: no messages in")
  684.            (keep-lines mh-valid-scan-line)) ; Flush random scan lines
  685.  
  686. --- 1627,1654 -----
  687.       (setq index-cache (concat mh-user-path real-folder "/.mh-e-index"))
  688.       (with-mh-folder-updating (nil)
  689.         (erase-buffer)
  690. !       (setq truncate-lines t)
  691. !       (if (or (not (string= downcase-range "all"))
  692. !           (not (file-exists-p index-cache))
  693. !           (file-newer-than-file-p index-cache-dir index-cache)
  694. !           )
  695. !       (progn
  696. !         (mh-exec-cmd-output "scan" nil
  697. !                 "-noclear" "-noheader"
  698. !                 "-width" (window-width)
  699. !                 folder range)
  700. !         (if (and (file-writable-p index-cache)
  701. !              (string= downcase-range "all")
  702. !              )
  703. !         (progn
  704. !           (write-region (point-min) (point-max) index-cache)
  705. !           )
  706. !           )
  707. !         )
  708. !     (progn
  709. !       (insert-file index-cache)
  710. !       )
  711. !     )
  712.         (goto-char (point-min))
  713.         (cond ((looking-at "scan: no messages in")
  714.            (keep-lines mh-valid-scan-line)) ; Flush random scan lines
  715. ***************
  716. *** 1837,1842
  717.     (setq major-mode 'mh-letter-mode)
  718.     (mh-set-mode-name "mh-e letter")
  719.     (set-syntax-table mh-letter-mode-syntax-table)
  720.     (run-hooks 'text-mode-hook 'mh-letter-mode-hook)
  721.     (mh-when auto-fill-hook
  722.       (make-local-variable 'auto-fill-hook)
  723.  
  724. --- 1909,1915 -----
  725.     (setq major-mode 'mh-letter-mode)
  726.     (mh-set-mode-name "mh-e letter")
  727.     (set-syntax-table mh-letter-mode-syntax-table)
  728. +   (mh-load-variables-if-necessary)
  729.     (run-hooks 'text-mode-hook 'mh-letter-mode-hook)
  730.     (mh-when auto-fill-hook
  731.       (make-local-variable 'auto-fill-hook)
  732. ***************
  733. *** 1862,1867
  734.         (< cur-point (point)))))
  735.   
  736.   
  737.   (defun mh-to-field ()
  738.     "Move point to the end of a specified header field.
  739.   The field is indicated by the previous keystroke.  Create the field if
  740.  
  741. --- 1935,1951 -----
  742.         (< cur-point (point)))))
  743.   
  744.   
  745. + (defun mh-insert-header-line (line)
  746. +   "Move to the header, and insert the text given by LINE.
  747. + This function assumes that a similar header line does not already exist."
  748. +   (let ()
  749. +     (goto-char (dot-min))
  750. +     (re-search-forward "\\(^--------\\)\\|\\(^$\\)")
  751. +     (beginning-of-line 1)
  752. +     (insert line)
  753. +     ))
  754. + 
  755. + 
  756.   (defun mh-to-field ()
  757.     "Move point to the end of a specified header field.
  758.   The field is indicated by the previous keystroke.  Create the field if
  759. ***************
  760. *** 1904,1911
  761.   (defun mh-insert-signature ()
  762.     "Insert the file ~/.signature at the current point."
  763.     (interactive)
  764. !   (insert-file-contents "~/.signature")
  765. !   (set-buffer-modified-p (buffer-modified-p))) ; force mode line update
  766.   
  767.   
  768.   (defun mh-check-whom ()
  769.  
  770. --- 1988,2019 -----
  771.   (defun mh-insert-signature ()
  772.     "Insert the file ~/.signature at the current point."
  773.     (interactive)
  774. !   (let ( (file "~/.signature") result)
  775. !     (save-window-excursion
  776. !       (if mh-signature-func
  777. !       (progn
  778. !         (save-window-excursion
  779. !           (save-excursion
  780. !         ;;
  781. !         ;; The environment is preserved during the function call
  782. !         ;;
  783. !         (setq result (funcall mh-signature-func))
  784. !         ))
  785. !         (cond
  786. !          ( (stringp result)
  787. !            (setq file result)
  788. !            )
  789. !          ( (and (listp result) (stringp (car result)))
  790. !            (insert (car result))
  791. !            (setq file nil)
  792. !            )
  793. !          )
  794. !         ))
  795. !       (if file
  796. !       (insert-file-contents file))
  797. !       )
  798. !     (set-buffer-modified-p (buffer-modified-p)) ; force mode line update
  799. !     ))
  800.   
  801.   
  802.   (defun mh-check-whom ()
  803. ***************
  804. *** 2053,2058
  805.   Run mh-before-send-letter-hook before doing anything."
  806.     (interactive "P")
  807.     (run-hooks 'mh-before-send-letter-hook)
  808.     (set-buffer-modified-p t)        ; Make sure buffer is written
  809.     (save-buffer)
  810.     (message "Sending...")
  811.  
  812. --- 2161,2168 -----
  813.   Run mh-before-send-letter-hook before doing anything."
  814.     (interactive "P")
  815.     (run-hooks 'mh-before-send-letter-hook)
  816. +   (if (and (boundp 'mh-add-md4-signature) mh-add-md4-signature)
  817. +       (mh-add-md4-header))
  818.     (set-buffer-modified-p t)        ; Make sure buffer is written
  819.     (save-buffer)
  820.     (message "Sending...")
  821. ***************
  822. *** 2136,2142
  823.       (set-buffer mh-sent-from-folder)
  824.       (if mh-delete-yanked-msg-window
  825.           (delete-windows-on mh-show-buffer))
  826. !     (set-buffer mh-show-buffer)    ; Find displayed message
  827.       (let ((mh-ins-str (cond ((mark)
  828.                    (buffer-substring (region-beginning)
  829.                              (region-end)))
  830.  
  831. --- 2246,2252 -----
  832.       (set-buffer mh-sent-from-folder)
  833.       (if mh-delete-yanked-msg-window
  834.           (delete-windows-on mh-show-buffer))
  835. !     (set-buffer (mh-get-buffer mh-show-buffer))    ; Find displayed message
  836.       (let ((mh-ins-str (cond ((mark)
  837.                    (buffer-substring (region-beginning)
  838.                              (region-end)))
  839. ***************
  840. *** 2484,2489
  841.       (yank)
  842.       (goto-char beginning-of-line)))
  843.   
  844.   
  845.   
  846.   ;;; Issue commands to MH.
  847.  
  848. --- 2594,2650 -----
  849.       (yank)
  850.       (goto-char beginning-of-line)))
  851.   
  852. + 
  853. + (defun mh-insert-sequence-list (seq)
  854. +   "Format and insert, into the current buf, a description of the sequence SEQ."
  855. +   (let ( (name (car seq))
  856. +      (s (sort (copy-sequence (cdr seq)) '<))
  857. +      (last-col 76)
  858. +      name-spec
  859. +      )
  860. +     (insert (setq name-spec (format "%20s:" name)))
  861. +     (while s
  862. +       (if (> (current-column) last-col)
  863. +       (progn
  864. +         (insert "\n")
  865. +         (move-to-column (length name-spec))
  866. +         )
  867. +     )
  868. +       (insert (format " %s" (car s)))
  869. +       (setq s (cdr s))
  870. +       )
  871. +     (insert "\n")
  872. +     )
  873. +   )
  874. + 
  875. + 
  876. + (defun mh-list-sequences (folder)
  877. +   "List the sequences defined in FOLDER."
  878. +   (interactive (list (mh-prompt-for-folder "List sequences in"
  879. +                        mh-current-folder t)))
  880. +   (let ( (temp-buffer " *mh-temp*")
  881. +      (l mh-seq-list)
  882. +      )
  883. +     (with-output-to-temp-buffer temp-buffer
  884. +       (save-excursion
  885. +     (set-buffer temp-buffer)
  886. +     (setq buffer-read-only nil)
  887. +     (erase-buffer)
  888. +     (message "Listing sequences ...")
  889. + 
  890. +     (insert "Sequences in folder " folder ":\n\n")
  891. +     (while l
  892. +       (mh-insert-sequence-list (car l))
  893. +       (setq l (cdr l))
  894. +       )
  895. + 
  896. +     (goto-char (point-min))
  897. +     (message "Listing sequences...done")
  898. +     )
  899. +       )
  900. +     )
  901. +   )
  902. + 
  903.   
  904.   
  905.   ;;; Issue commands to MH.
  906. ***************
  907. *** 2492,2498
  908.     ;; Execute MH command COMMAND with ARGS.
  909.     ;; Any output is assumed to be an error and is shown to the user.
  910.     (save-excursion
  911. !     (set-buffer " *mh-temp*")
  912.       (erase-buffer)
  913.       (apply 'call-process
  914.          (expand-file-name command mh-progs) nil t nil
  915.  
  916. --- 2653,2659 -----
  917.     ;; Execute MH command COMMAND with ARGS.
  918.     ;; Any output is assumed to be an error and is shown to the user.
  919.     (save-excursion
  920. !     (buffer-flush-undo (set-buffer " *mh-temp*"))
  921.       (erase-buffer)
  922.       (apply 'call-process
  923.          (expand-file-name command mh-progs) nil t nil
  924. ***************
  925. *** 2507,2513
  926.     ;; In BUFFER, execute MH command COMMAND with ARGS.
  927.     ;; ARGS is a list of strings.  Return in BUFFER, if one exists.
  928.     (mh-when (stringp buffer)
  929. !     (set-buffer buffer)
  930.       (erase-buffer))
  931.     (apply 'call-process
  932.        (expand-file-name command mh-progs) nil buffer nil
  933.  
  934. --- 2668,2674 -----
  935.     ;; In BUFFER, execute MH command COMMAND with ARGS.
  936.     ;; ARGS is a list of strings.  Return in BUFFER, if one exists.
  937.     (mh-when (stringp buffer)
  938. !     (buffer-flush-undo (set-buffer buffer))
  939.       (erase-buffer))
  940.     (apply 'call-process
  941.        (expand-file-name command mh-progs) nil buffer nil
  942. ***************
  943. *** 2603,2611
  944.   
  945.   ;;; User prompting commands.
  946.   
  947. ! (defun mh-prompt-for-folder (prompt default can-create)
  948. !   ;; Prompt for a folder name with PROMPT.  Returns the folder's name as a
  949. !   ;; string.  DEFAULT is used if the folder exists and the user types return.
  950.     ;; If the CAN-CREATE flag is t, then a non-existent folder is made.
  951.     (let* ((prompt (format "%s folder%s" prompt
  952.                (if (equal "" default)
  953.  
  954. --- 2764,2772 -----
  955.   
  956.   ;;; User prompting commands.
  957.   
  958. ! (defun mh-prompt-for-folder (prompt-string default can-create)
  959. !   ;; Prompt for a folder name with PROMPT-STRING.  Returns the folder's name as
  960. !   ;; a string.  DEFAULT is used if the folder exists and the user types return.
  961.     ;; If the CAN-CREATE flag is t, then a non-existent folder is made.
  962.     (let (prompt name)
  963.       (if (null mh-folder-list)
  964. ***************
  965. *** 2607,2617
  966.     ;; Prompt for a folder name with PROMPT.  Returns the folder's name as a
  967.     ;; string.  DEFAULT is used if the folder exists and the user types return.
  968.     ;; If the CAN-CREATE flag is t, then a non-existent folder is made.
  969. !   (let* ((prompt (format "%s folder%s" prompt
  970. !              (if (equal "" default)
  971. !                  "? "
  972. !                  (format " [%s]? " default))))
  973. !      name)
  974.       (if (null mh-folder-list)
  975.       (mh-set-folder-list))
  976.       (while (and (setq name (completing-read prompt mh-folder-list
  977.  
  978. --- 2768,2774 -----
  979.     ;; Prompt for a folder name with PROMPT-STRING.  Returns the folder's name as
  980.     ;; a string.  DEFAULT is used if the folder exists and the user types return.
  981.     ;; If the CAN-CREATE flag is t, then a non-existent folder is made.
  982. !   (let (prompt name)
  983.       (if (null mh-folder-list)
  984.       (mh-set-folder-list))
  985.       (setq prompt (format "%s folder%s" prompt-string
  986. ***************
  987. *** 2614,2619
  988.        name)
  989.       (if (null mh-folder-list)
  990.       (mh-set-folder-list))
  991.       (while (and (setq name (completing-read prompt mh-folder-list
  992.                           nil nil "+"))
  993.           (equal name "")
  994.  
  995. --- 2771,2791 -----
  996.     (let (prompt name)
  997.       (if (null mh-folder-list)
  998.       (mh-set-folder-list))
  999. +     (setq prompt (format "%s folder%s" prompt-string
  1000. +              (if (equal "" default)
  1001. +                  (let (folder)
  1002. +                    (setq folder
  1003. +                      (if mh-auto-folder-alist
  1004. +                      (mh-auto-select-folder
  1005. +                       mh-auto-folder-alist
  1006. +                       'other)))
  1007. +                    (if (or (not folder) (string= folder ""))
  1008. +                    "? "
  1009. +                  (progn
  1010. +                    (setq default folder)
  1011. +                    (format " [%s]? " folder)
  1012. +                    )))
  1013. +                (format " [%s]? " default))))
  1014.       (while (and (setq name (completing-read prompt mh-folder-list
  1015.                           nil nil "+"))
  1016.           (equal name "")
  1017. ***************
  1018. *** 2625,2631
  1019.       (let ((new-file-p (not (file-exists-p (mh-expand-file-name name)))))
  1020.         (cond ((and new-file-p
  1021.             (y-or-n-p
  1022. !            (format "Folder %s does not exist. Create it? " name)))
  1023.            (message "Creating %s" name)
  1024.            (call-process "mkdir" nil nil nil (mh-expand-file-name name))
  1025.            (message "Creating %s...done" name)
  1026.  
  1027. --- 2797,2803 -----
  1028.       (let ((new-file-p (not (file-exists-p (mh-expand-file-name name)))))
  1029.         (cond ((and new-file-p
  1030.             (y-or-n-p
  1031. !            (format "Folder %s does not exist.  Create it? " name)))
  1032.            (message "Creating %s" name)
  1033.            (call-process "mkdir" nil nil nil (mh-expand-file-name name))
  1034.            (message "Creating %s...done" name)
  1035. ***************
  1036. *** 2672,2677
  1037.       (delq (assoc folder mh-folder-list) mh-folder-list)))
  1038.   
  1039.   
  1040.   (defun mh-read-msg-range (prompt)
  1041.     ;; Read a list of blank-separated items.
  1042.     (let* ((buf (read-string prompt))
  1043.  
  1044. --- 2844,2868 -----
  1045.       (delq (assoc folder mh-folder-list) mh-folder-list)))
  1046.   
  1047.   
  1048. + (defun mh-drop-spaces (str)
  1049. +   "Return a copy of STR, with leading and trailing spaces removed."
  1050. +   (let (loc)
  1051. +     (if (string-match "^[ \t]+" str)
  1052. +     (setq str (substring str (match-end 0)))
  1053. +       )
  1054. +     (if (string-match "[ \t]+$" str)
  1055. +     (progn
  1056. +       (setq loc (match-beginning 0))
  1057. +       (if (> loc 0)
  1058. +           (setq loc (1- loc))
  1059. +         )
  1060. +       (setq str (substring str 0 loc))
  1061. +       )
  1062. +       )
  1063. +     str
  1064. +     )
  1065. +   )
  1066. + 
  1067.   (defun mh-read-msg-range (prompt)
  1068.     ;; Read a list of blank-separated items.
  1069.     (let* ((buf (read-string prompt))
  1070. ***************
  1071. *** 2677,2688
  1072.     (let* ((buf (read-string prompt))
  1073.        (buf-size (length buf))
  1074.        (start 0)
  1075. !      (input ()))
  1076. !     (while (< start buf-size)
  1077. !       (let ((next (read-from-string buf start buf-size)))
  1078. !     (mh-push (car next) input)
  1079. !     (setq start (cdr next))))
  1080. !     (nreverse input)))
  1081.   
  1082.   
  1083.   
  1084.  
  1085. --- 2868,2895 -----
  1086.     (let* ((buf (read-string prompt))
  1087.        (buf-size (length buf))
  1088.        (start 0)
  1089. !      (input ""))
  1090. !     (while (> (length buf) 0)
  1091. !       (if (string-match "\\([^, \t]*\\)\\([, \t]*\\)" buf)
  1092. !       (progn
  1093. !         (if (/= (match-beginning 1) (match-end 1))
  1094. !         (setq input (concat input " "
  1095. !                     (substring buf
  1096. !                            (match-beginning 1)
  1097. !                            (match-end 1))))
  1098. !           )
  1099. !         )
  1100. !     (error "Error in mh-read-msg-range")
  1101. !     )
  1102. !       (setq buf (substring buf (match-end 2)))
  1103. !       )
  1104. !     (setq input (mh-drop-spaces input))
  1105. !     (if (string= input "")
  1106. !     (setq input "all")
  1107. !       )
  1108. !     input
  1109. !     )
  1110. !   )
  1111.   
  1112.   
  1113.   
  1114. ***************
  1115. *** 2812,2817
  1116.     (if (re-search-forward "^$\\|^-+$" nil nil)
  1117.         (forward-line arg)))
  1118.   
  1119.   
  1120.   
  1121.   ;;; Build the folder-mode keymap:
  1122.  
  1123. --- 3019,3104 -----
  1124.     (if (re-search-forward "^$\\|^-+$" nil nil)
  1125.         (forward-line arg)))
  1126.   
  1127. + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1128. + ;;
  1129. + ;; Autoloads for MH enhancements:
  1130. + ;;
  1131. + 
  1132. + (autoload 'mh-expand-alias "mh-alias"
  1133. +       "Expand the alias before point.
  1134. + In order for the alias to be expanded, point must be either in the minibuffer
  1135. + or in the To: or Cc: mail headers.  Otherwise, the keypress used to invoke
  1136. + this function is instead inserted into the buffer.
  1137. + 
  1138. + If the alias is not unique, all matching possibilities are displayed in
  1139. + a pop-up buffer.  If there is no alias before point, all aliases are
  1140. + displayed."
  1141. +       t nil)
  1142. + 
  1143. + (autoload 'mh-read-to-cc-subject "mh-alias"
  1144. +       "Read addresses for To: and Cc:, and read a subject line.
  1145. + The result is returned in a form suitable for passing to the `interactive'
  1146. + function."
  1147. +       nil nil)
  1148. + 
  1149. + (autoload 'mh-read-to-address "mh-alias"
  1150. +       "Ask the user for a To: address, only if mh-ask-to-address is non-nil."
  1151. +       nil nil)
  1152. + 
  1153. + (autoload 'mh-read-cc-address "mh-alias"
  1154. +       "Ask the user for a Cc: address, only if mh-ask-to-address is non-nil."
  1155. +       nil nil)
  1156. + 
  1157. + (autoload 'mh-read-subject "mh-alias"
  1158. +       "Ask the user for a Subject:, only if mh-ask-to-address is non-nil."
  1159. +       nil nil)
  1160. + 
  1161. + 
  1162. + (autoload 'mh-auto-select-folder "mh-refile"
  1163. +       "Return the name of a folder to refile the current message in.
  1164. + The current buffer is scanned for this information."
  1165. +       nil nil)
  1166. + 
  1167. + (autoload 'mh-get-default-refile-folder "mh-refile"
  1168. +       "Get a default name for refiling a message."
  1169. +       nil nil)
  1170. + 
  1171. + (autoload 'mh-set-default-refile-folder "mh-refile"
  1172. +       "Set the default folder for the MH message under the cursor in the current
  1173. + folder buffer."
  1174. +       t nil)
  1175. + 
  1176. + 
  1177. + (autoload 'mh-unshar "mh-shar"
  1178. +       "Unshar the current message in the directory given by DIR."
  1179. +       t nil)
  1180. + 
  1181. + (autoload 'mh-uudecode "mh-shar"
  1182. +       "Unshar the current message in the directory given by DIR."
  1183. +       t nil)
  1184. + 
  1185. + 
  1186. + (autoload 'mh-add-md4-header "mh-shar"
  1187. +       "Insert an \"X-Md4-Signature:\" line into the header."
  1188. +       nil nil)
  1189. + 
  1190. + (autoload 'mh-check-md4-signature "mh-shar"
  1191. +       "If an MD4 signature is present in the header, check it and report the results."
  1192. +       t nil)
  1193. + 
  1194. + (autoload 'mh-shar-and-insert "mh-shar"
  1195. +       "Shar the file FILE, passing OTHER-ARGS (if any) to the shar program.
  1196. + The shar contents in then inserted into the current buffer."
  1197. +       t nil)
  1198. + 
  1199. + (autoload 'mh-uuencode-and-insert "mh-shar"
  1200. +       "Uuencode and insert the file FILE into the current buffer.
  1201. + Normally, the uuencoded filename does not contain a pathname.
  1202. + If ABSOLUTE is non-nil, or if a prefix argument is given, the uuencoded
  1203. + information will contain an absolute pathname."
  1204. +       t nil)
  1205. + 
  1206. + 
  1207.   
  1208.   
  1209.   ;;; Build the folder-mode keymap:
  1210. ***************
  1211. *** 2822,2827
  1212.   (define-key mh-folder-mode-map "?" 'mh-msg-is-in-seq)
  1213.   (define-key mh-folder-mode-map "%" 'mh-put-msg-in-seq)
  1214.   (define-key mh-folder-mode-map "|" 'mh-pipe-msg)
  1215.   (define-key mh-folder-mode-map "\ea" 'mh-edit-again)
  1216.   (define-key mh-folder-mode-map "\e%" 'mh-delete-msg-from-seq)
  1217.   (define-key mh-folder-mode-map "\C-xn" 'mh-narrow-to-seq)
  1218.  
  1219. --- 3109,3115 -----
  1220.   (define-key mh-folder-mode-map "?" 'mh-msg-is-in-seq)
  1221.   (define-key mh-folder-mode-map "%" 'mh-put-msg-in-seq)
  1222.   (define-key mh-folder-mode-map "|" 'mh-pipe-msg)
  1223. + (define-key mh-folder-mode-map "=" 'mh-set-default-refile-folder)
  1224.   (define-key mh-folder-mode-map "\ea" 'mh-edit-again)
  1225.   (define-key mh-folder-mode-map "\e%" 'mh-delete-msg-from-seq)
  1226.   (define-key mh-folder-mode-map "\C-xn" 'mh-narrow-to-seq)
  1227. ***************
  1228. *** 2827,2832
  1229.   (define-key mh-folder-mode-map "\C-xn" 'mh-narrow-to-seq)
  1230.   (define-key mh-folder-mode-map "\C-xw" 'mh-widen)
  1231.   (define-key mh-folder-mode-map "\eb" 'mh-burst-digest)
  1232.   (define-key mh-folder-mode-map "\eu" 'mh-undo-folder)
  1233.   (define-key mh-folder-mode-map "\e " 'mh-page-digest)
  1234.   (define-key mh-folder-mode-map "\e\177" 'mh-page-digest-backwards)
  1235.  
  1236. --- 3115,3124 -----
  1237.   (define-key mh-folder-mode-map "\C-xn" 'mh-narrow-to-seq)
  1238.   (define-key mh-folder-mode-map "\C-xw" 'mh-widen)
  1239.   (define-key mh-folder-mode-map "\eb" 'mh-burst-digest)
  1240. + (define-key mh-folder-mode-map "\ec" 'mh-uudecode)
  1241. + (define-key mh-folder-mode-map "\en" 'mh-unshar)
  1242. + (define-key mh-folder-mode-map "\eq" 'mh-list-sequences)
  1243. + (define-key mh-folder-mode-map "\eS" 'mh-sort-folder)
  1244.   (define-key mh-folder-mode-map "\eu" 'mh-undo-folder)
  1245.   (define-key mh-folder-mode-map "\e " 'mh-page-digest)
  1246.   (define-key mh-folder-mode-map "\e\177" 'mh-page-digest-backwards)
  1247. ***************
  1248. *** 2864,2869
  1249.   (define-key mh-folder-mode-map "p" 'mh-previous-undeleted-msg)
  1250.   (define-key mh-folder-mode-map "n" 'mh-next-undeleted-msg)
  1251.   (define-key mh-folder-mode-map "o" 'mh-refile-msg)
  1252.   
  1253.   
  1254.   ;;; Build the letter-mode keymap:
  1255.  
  1256. --- 3156,3166 -----
  1257.   (define-key mh-folder-mode-map "p" 'mh-previous-undeleted-msg)
  1258.   (define-key mh-folder-mode-map "n" 'mh-next-undeleted-msg)
  1259.   (define-key mh-folder-mode-map "o" 'mh-refile-msg)
  1260. + (define-key mh-folder-mode-map "v" 'mh-check-md4-signature)
  1261. + (define-key mh-letter-mode-map "\C-cs" 'mh-shar-and-insert)
  1262. + (define-key mh-letter-mode-map "\C-cu" 'mh-uuencode-and-insert)
  1263. + ;; Make TAB expand aliases
  1264. + (define-key mh-letter-mode-map "\t" 'mh-expand-