Mercurial > emacs

diff lisp/mh-e/mh-mime.el @ 71528:113cbc14f25c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-mime-save-parts): Add -store option to mhn (closes SF #1513140).
author Bill Wohler <wohler@newt.com>
date Thu, 29 Jun 2006 20:43:44 +0000
parents d81780942bb8
children e3694f1cb928 138ce2701550
line wrap: on
line diff
--- a/lisp/mh-e/mh-mime.el	Thu Jun 29 10:38:45 2006 +0000
+++ b/lisp/mh-e/mh-mime.el	Thu Jun 29 20:43:44 2006 +0000
@@ -415,7 +415,9 @@
         (let ((initial-size (mh-truncate-log-buffer)))
           (apply 'call-process
                  (expand-file-name command mh-progs) nil t nil
-                 (mh-list-to-string (list folder msg "-auto")))
+                 (mh-list-to-string (list folder msg "-auto"
+                                          (if (not (mh-variant-p 'nmh))
+                                              "-store"))))
           (if (> (buffer-size) initial-size)
               (save-window-excursion
                 (switch-to-buffer-other-window mh-log-buffer)