tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Bug fix with return value of `org-mhe-get-message-folder-from-index'. 

Patch from Thomas Baumann.
This commit is contained in:
Carsten Dominik 2008-06-13 23:13:08 +02:00
parent da4f268b84
commit 02fab14a70
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-mhe.el
View File

@ -138,11 +138,11 @@ So if you use sequences, it will now work."
)))
(defun org-mhe-get-message-folder-from-index ()
"Return the name of the message folder in a index folder buffer."
"Return the name of the message folder in an index folder buffer."
(save-excursion
(mh-index-previous-folder)
(re-search-forward "^\\(+.*\\)$" nil t)
(message "%s" (match-string 1))))
(if (re-search-forward "^\\(+.*\\)$" nil t)
(message "%s" (match-string 1)))))
(defun org-mhe-get-message-folder ()
"Return the name of the current message folder.