From mboxrd@z Thu Jan 1 00:00:00 1970 From: Darlan Cavalcante Moreira Subject: Re: [PATCH] Provide customization variable to disable folder check when open link. Date: Fri, 02 Jul 2010 21:36:43 +0200 Message-ID: References: <1277884470-563-1-git-send-email-dmaus@ictsoc.de> <1277884470-563-2-git-send-email-dmaus@ictsoc.de> Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: text/plain; charset=US-ASCII Return-path: Received: from [140.186.70.92] (port=39071 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OUm2c-0008VU-Q1 for emacs-orgmode@gnu.org; Fri, 02 Jul 2010 15:36:52 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OUm2b-00014f-CL for emacs-orgmode@gnu.org; Fri, 02 Jul 2010 15:36:50 -0400 Received: from mail.rez-gif.supelec.fr ([160.228.154.1]:49308) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OUm2b-00014E-4N for emacs-orgmode@gnu.org; Fri, 02 Jul 2010 15:36:49 -0400 In-Reply-To: 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: Carsten Dominik Cc: emacs-orgmode@gnu.org As an org-mode and wanderlust user I can say that this is indeed much better now. Thanks -- Darlan At Thu, 1 Jul 2010 15:50:23 +0200, Carsten Dominik wrote: > > Applied, thanks. > > - Carsten > > On Jun 30, 2010, at 9:54 AM, David Maus wrote: > > > * 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 > > > > > > _______________________________________________ > > Emacs-orgmode mailing list > > Please use `Reply All' to send replies to the list. > > Emacs-orgmode@gnu.org > > http://lists.gnu.org/mailman/listinfo/emacs-orgmode > > - Carsten > > > > > _______________________________________________ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode