From: Bill Wohler <wohler@newt.com>
Date: Thu, 29 Jun 2006 20:43:44 +0000 (+0000)
Subject: (mh-mime-save-parts): Add -store option to mhn (closes SF #1513140).
X-Git-Tag: emacs-pretest-22.0.90~1791
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0487df8766f3f91cbd08ed7857df2cca314f503;p=emacs.git

(mh-mime-save-parts): Add -store option to mhn (closes SF #1513140).
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index a390589dd0f..ecb4f502ed9 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-29  Sergey Poznyakoff  <gray@Mirddin.farlep.net>  (tiny change)
+
+	* mh-mime.el (mh-mime-save-parts): Add -store option to
+	mhn (closes SF #1513140).
+
 2006-06-20  Bill Wohler  <wohler@newt.com>
 
 	Release MH-E version 8.0.1.
diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index c05e867a2b4..a66db002b6a 100644
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -415,7 +415,9 @@ do the work."
         (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)