diff options
Diffstat (limited to 'lisp/org/org-wl.el')
| -rw-r--r-- | lisp/org/org-wl.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/org/org-wl.el b/lisp/org/org-wl.el index e3700b1749c..a82afdbed77 100644 --- a/lisp/org/org-wl.el +++ b/lisp/org/org-wl.el @@ -5,7 +5,7 @@ ;; Author: Tokuya Kameshima <kames at fa2 dot so-net dot ne dot jp> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://orgmode.org -;; Version: 6.06b +;; Version: 6.09a ;; ;; This file is part of GNU Emacs. ;; @@ -53,8 +53,8 @@ ;; Backward compatibility to old version of wl (declare-function wl "ext:wl" () t) (declare-function wl-summary-buffer-msgdb "ext:wl-folder" () t) -(declare-function wl-folder-get-elmo-folder "ext:wl-folder" - (entity &optional no-cache)) +;(declare-function wl-folder-get-elmo-folder "ext:wl-folder" +; (entity &optional no-cache)) (declare-function wl-summary-goto-folder-subr "ext:wl-summary" (&optional name scan-type other-window sticky interactive scoring force-exit)) @@ -67,7 +67,6 @@ (declare-function wl-summary-registered-temp-mark "ext:wl-action" (number)) (declare-function wl-folder-goto-folder-subr "ext:wl-folder" (&optional folder sticky)) -(declare-function wl-thread-open-all "ext:wl-thread" ()) (defvar wl-init) (defvar wl-summary-buffer-elmo-folder) (defvar wl-summary-buffer-folder-name) @@ -123,7 +122,8 @@ (error "Error in Wanderlust link")) (let ((folder (match-string 1 path)) (article (match-string 3 path))) - (if (not (elmo-folder-exists-p (wl-folder-get-elmo-folder folder))) + (if (not (elmo-folder-exists-p (org-no-warnings + (wl-folder-get-elmo-folder folder)))) (error "No such folder: %s" folder)) (let ((old-buf (current-buffer)) (old-point (point-marker))) @@ -134,7 +134,6 @@ ;; in the old buffer. (set-buffer old-buf) (goto-char old-point)) - (wl-thread-open-all) (and (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article)) (wl-summary-redisplay))))) |