|
@@ -203,7 +203,7 @@ folders."
|
|
(mh-search folder (list "--message-id" article))
|
|
(mh-search folder (list "--message-id" article))
|
|
(when (and org-mhe-search-all-folders
|
|
(when (and org-mhe-search-all-folders
|
|
(not (org-mhe-get-message-real-folder)))
|
|
(not (org-mhe-get-message-real-folder)))
|
|
- (kill-this-buffer)
|
|
|
|
|
|
+ (kill-buffer)
|
|
(mh-search "+" (list "--message-id" article))))
|
|
(mh-search "+" (list "--message-id" article))))
|
|
(if mh-search-regexp-builder
|
|
(if mh-search-regexp-builder
|
|
(mh-search "+" (funcall mh-search-regexp-builder
|
|
(mh-search "+" (funcall mh-search-regexp-builder
|
|
@@ -211,7 +211,7 @@ folders."
|
|
(mh-search "+" article)))
|
|
(mh-search "+" article)))
|
|
(if (org-mhe-get-message-real-folder)
|
|
(if (org-mhe-get-message-real-folder)
|
|
(mh-show-msg 1)
|
|
(mh-show-msg 1)
|
|
- (kill-this-buffer)
|
|
|
|
|
|
+ (kill-buffer)
|
|
(error "Message not found"))))
|
|
(error "Message not found"))))
|
|
|
|
|
|
(provide 'org-mhe)
|
|
(provide 'org-mhe)
|