org-mew.el: fixed the docstring of `org-mew-open'.
This commit is contained in:
parent
862f6cb42c
commit
ef5c3a2a66
|
@ -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.
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
Loading…
Reference in New Issue