ソースを参照

Remove incorrect declaration in org-wl.el.

Carsten Dominik 16 年 前
コミット
dc193b76e7
2 ファイル変更6 行追加3 行削除
  1. 2 0
      lisp/ChangeLog
  2. 4 3
      lisp/org-wl.el

+ 2 - 0
lisp/ChangeLog

@@ -1,5 +1,7 @@
 2008-09-03  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-wl.el (org-wl-open): Remove incorrect declaration.
+
 	* org-gnus.el (org-gnus-store-link): Support for :to information
 	in gnus links.
 

+ 4 - 3
lisp/org-wl.el

@@ -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))
@@ -123,7 +123,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)))