From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH] Provide customization variable to disable folder check when open link. Date: Wed, 30 Jun 2010 09:54:30 +0200 Message-ID: <1277884470-563-2-git-send-email-dmaus@ictsoc.de> References: <1277884470-563-1-git-send-email-dmaus@ictsoc.de> Return-path: Received: from [140.186.70.92] (port=36343 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTs8F-0002Py-ON for emacs-orgmode@gnu.org; Wed, 30 Jun 2010 03:54:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OTs8E-0005zF-96 for emacs-orgmode@gnu.org; Wed, 30 Jun 2010 03:54:55 -0400 Received: from mysql1.xlhost.de ([213.202.242.106]:41098) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OTs8D-0005z8-UD for emacs-orgmode@gnu.org; Wed, 30 Jun 2010 03:54:54 -0400 In-Reply-To: <1277884470-563-1-git-send-email-dmaus@ictsoc.de> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * org-wl.el (org-wl-disable-folder-check): New customization variable. (org-wl-open): Disable folder check depending on `orrg-wl-disable-folder-check'. --- lisp/org-wl.el | 63 ++++++++++++++++++++++++++++++++------------------------ 1 files changed, 36 insertions(+), 27 deletions(-) diff --git a/lisp/org-wl.el b/lisp/org-wl.el index a5c8218..7746427 100644 --- a/lisp/org-wl.el +++ b/lisp/org-wl.el @@ -62,6 +62,11 @@ googlegroups otherwise." :type 'boolean :group 'org-wl) +(defcustom org-wl-disable-folder-check t + "Disable check for new messages when open a link." + :type 'boolean + :group 'org-wl) + (defcustom org-wl-namazu-default-index nil "Default namazu search index." :type 'directory @@ -233,33 +238,37 @@ with `org-wl-namazu-default-index' as search index. When called with two prefixes or `org-wl-namazu-default-index' is nil, ask for namazu index." (require 'wl) - (unless wl-init (wl)) - ;; XXX: The imap-uw's MH folder names start with "%#". - (if (not (string-match "\\`\\(\\(?:%#\\)?[^#]+\\)\\(#\\(.*\\)\\)?" path)) - (error "Error in Wanderlust link")) - (let ((folder (match-string 1 path)) - (article (match-string 3 path))) - ;; maybe open message in namazu search folder - (when current-prefix-arg - (setq folder (concat "[" article "]" - (if (and (equal current-prefix-arg '(4)) - org-wl-namazu-default-index) - org-wl-namazu-default-index - (read-directory-name "Namazu index: "))))) - (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))) - (wl-folder-goto-folder-subr folder) - (with-current-buffer old-buf - ;; XXX: `wl-folder-goto-folder-subr' moves point to the - ;; beginning of the current line. So, restore the point - ;; in the old buffer. - (goto-char old-point)) - (and article (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets - article)) - (wl-summary-redisplay))))) + (let ((wl-auto-check-folder-name + (if org-wl-disable-folder-check + 'none + wl-auto-check-folder-name))) + (unless wl-init (wl)) + ;; XXX: The imap-uw's MH folder names start with "%#". + (if (not (string-match "\\`\\(\\(?:%#\\)?[^#]+\\)\\(#\\(.*\\)\\)?" path)) + (error "Error in Wanderlust link")) + (let ((folder (match-string 1 path)) + (article (match-string 3 path))) + ;; maybe open message in namazu search folder + (when current-prefix-arg + (setq folder (concat "[" article "]" + (if (and (equal current-prefix-arg '(4)) + org-wl-namazu-default-index) + org-wl-namazu-default-index + (read-directory-name "Namazu index: "))))) + (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))) + (wl-folder-goto-folder-subr folder) + (with-current-buffer old-buf + ;; XXX: `wl-folder-goto-folder-subr' moves point to the + ;; beginning of the current line. So, restore the point + ;; in the old buffer. + (goto-char old-point)) + (and article (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets + article)) + (wl-summary-redisplay)))))) (provide 'org-wl) -- 1.7.1