emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Re: Link to MH-E message that has been refiled
@ 2008-06-13 18:47 Thomas Baumann
  2008-06-13 21:13 ` Carsten Dominik
  0 siblings, 1 reply; 2+ messages in thread
From: Thomas Baumann @ 2008-06-13 18:47 UTC (permalink / raw)
  To: Carsten Dominik; +Cc: emacs-orgmode

and there's a bug with org-mhe-get-message-folder-from-index returning
"nil" instead of nil

fixed with the patch below

diff --git a/lisp/org-mhe.el b/lisp/org-mhe.el
index eb2c9ab..7f0d7f4 100644
--- a/lisp/org-mhe.el
+++ b/lisp/org-mhe.el
@@ -141,8 +141,8 @@ So if you use sequences, it will now work."
   "Return the name of the message folder in a 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.

^ permalink raw reply related	[flat|nested] 2+ messages in thread

* Re: Re: Link to MH-E message that has been refiled
  2008-06-13 18:47 Link to MH-E message that has been refiled Thomas Baumann
@ 2008-06-13 21:13 ` Carsten Dominik
  0 siblings, 0 replies; 2+ messages in thread
From: Carsten Dominik @ 2008-06-13 21:13 UTC (permalink / raw)
  To: dtbaumann; +Cc: Carsten Dominik, emacs-orgmode

Applied, thanks.

- Carsten

On Jun 13, 2008, at 8:47 PM, Thomas Baumann wrote:

> and there's a bug with org-mhe-get-message-folder-from-index returning
> "nil" instead of nil
>
> fixed with the patch below
>
> diff --git a/lisp/org-mhe.el b/lisp/org-mhe.el
> index eb2c9ab..7f0d7f4 100644
> --- a/lisp/org-mhe.el
> +++ b/lisp/org-mhe.el
> @@ -141,8 +141,8 @@ So if you use sequences, it will now work."
>   "Return the name of the message folder in a 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.
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2008-06-13 21:14 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-06-13 18:47 Link to MH-E message that has been refiled Thomas Baumann
2008-06-13 21:13 ` Carsten Dominik

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).