martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve previous change.

Browse Source 
* lisp/mh-e/mh-thread.el: Require 'mh-folder.
(mh-thread-refile): Update the docstring.
This commit is contained in:
Mike Kupfer
2026-04-10 11:04:29 -07:00
parent b07a3970ae
commit 80c0529e94
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mh-e/mh-thread.el
View File

@@ -73,6 +73,7 @@
(require 'mh-e)
(require 'mh-scan)
(require 'mh-folder)
(cl-defstruct (mh-thread-message (:conc-name mh-message-)
(:constructor mh-thread-make-message))
@@ -193,8 +194,11 @@ sibling."
(mh-thread-next-sibling t))
;;;###mh-autoload
(defun mh-thread-refile (folder &optional dont-update-last-destination-flag)
"Refile (output) thread into FOLDER."
(defun mh-thread-refile (folder &optional dont-update-last-destination-flag)
"Refile (output) thread into FOLDER.
In a program, update the variables `mh-last-destination' and
`mh-last-destination-folder' unless DONT-UPDATE-LAST-DESTINATION-FLAG is
non-nil."
(interactive (list (intern (mh-prompt-for-refile-folder))))
(cond ((not (memq 'unthread mh-view-ops))
(error "Folder isn't threaded"))