Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Bill Wohler 2006-06-29 20:43:44 +00:00
parent 62da23efc5
commit e0487df876
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mh-e/ChangeLog
View file

@ -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.

4
lisp/mh-e/mh-mime.el
View file

@ -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)