org-mew.el: fixed the docstring of `org-mew-open'.

This commit is contained in:
Bastien Guerry 2008-04-09 10:12:03 +02:00
parent 862f6cb42c
commit ef5c3a2a66
2 changed files with 5 additions and 1 deletions

View File

@ -1,3 +1,7 @@
2008-04-09 Bastien Guerry <bzg@altern.org>
* lisp/org-mew.el (org-mew-open): Fixed the docstring.
2008-04-08 Carsten Dominik <dominik@science.uva.nl> 2008-04-08 Carsten Dominik <dominik@science.uva.nl>
* lisp/org-agenda.el (org-agenda-weekend-days): New variable. * lisp/org-agenda.el (org-agenda-weekend-days): New variable.

View File

@ -44,7 +44,7 @@
(add-hook 'org-store-link-functions 'org-mew-store-link) (add-hook 'org-store-link-functions 'org-mew-store-link)
(defun org-mew-open (mew-link) (defun org-mew-open (mew-link)
"Visit the message MSG-NUMBER in FOLDER." "Visit the message targetted at by MEW-LINK."
(when (string-match "\\(+.*\\)+\\+\\([0-9]+\\)" mew-link) (when (string-match "\\(+.*\\)+\\+\\([0-9]+\\)" mew-link)
(let ((folder (match-string 1 mew-link)) (let ((folder (match-string 1 mew-link))
(msg-num (match-string 2 mew-link))) (msg-num (match-string 2 mew-link)))