andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* mh-mime.el (mh-mime-save-parts): Restore default-directory (SF#498)

Browse source
This commit is contained in:
Mike Kupfer 2022-07-17 11:23:48 -07:00
parent 9ed5c39aad
commit bb0af6489a
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -394,18 +394,19 @@ do the work."
(if (equal nil mh-mime-save-parts-default-directory)
(setq mh-mime-save-parts-directory directory))
(with-current-buffer (get-buffer-create mh-log-buffer)
(cd directory)
(setq mh-mime-save-parts-directory directory)
(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"
(if (not (mh-variant-p 'nmh))
"-store"))))
(if (> (buffer-size) initial-size)
(save-window-excursion
(switch-to-buffer-other-window mh-log-buffer)
(sit-for 3))))))))
(let (default-directory)
(cd directory)
(setq mh-mime-save-parts-directory directory)
(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"
(if (not (mh-variant-p 'nmh))
"-store"))))
(if (> (buffer-size) initial-size)
(save-window-excursion
(switch-to-buffer-other-window mh-log-buffer)
(sit-for 3)))))))))
;;;###mh-autoload
(defun mh-toggle-mh-decode-mime-flag ()