ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove incorrect declaration in org-wl.el.

This commit is contained in:
Carsten Dominik 2008-09-03 11:23:33 +02:00
parent d74855408f
commit dc193b76e7
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2008-09-03 Carsten Dominik <dominik@science.uva.nl> 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 * org-gnus.el (org-gnus-store-link): Support for :to information
in gnus links. in gnus links.

7
lisp/org-wl.el
View File

@ -53,8 +53,8 @@
;; Backward compatibility to old version of wl ;; Backward compatibility to old version of wl
(declare-function wl "ext:wl" () t) (declare-function wl "ext:wl" () t)
(declare-function wl-summary-buffer-msgdb "ext:wl-folder" () t) (declare-function wl-summary-buffer-msgdb "ext:wl-folder" () t)
(declare-function wl-folder-get-elmo-folder "ext:wl-folder" ;(declare-function wl-folder-get-elmo-folder "ext:wl-folder"
(entity &optional no-cache)) ; (entity &optional no-cache))
(declare-function wl-summary-goto-folder-subr "ext:wl-summary" (declare-function wl-summary-goto-folder-subr "ext:wl-summary"
(&optional name scan-type other-window sticky interactive (&optional name scan-type other-window sticky interactive
scoring force-exit)) scoring force-exit))
@ -123,7 +123,8 @@
(error "Error in Wanderlust link")) (error "Error in Wanderlust link"))
(let ((folder (match-string 1 path)) (let ((folder (match-string 1 path))
(article (match-string 3 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)) (error "No such folder: %s" folder))
(let ((old-buf (current-buffer)) (let ((old-buf (current-buffer))
(old-point (point-marker))) (old-point (point-marker)))