From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 2/2] Adjust indentation to meet coding style. Date: Wed, 12 May 2010 10:55:06 +0200 Message-ID: <1273654506-17914-3-git-send-email-dmaus@ictsoc.de> References: Return-path: Received: from [140.186.70.92] (port=45515 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OC7jP-0000R3-Ms for emacs-orgmode@gnu.org; Wed, 12 May 2010 04:55:57 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OC7jN-0006KF-0g for emacs-orgmode@gnu.org; Wed, 12 May 2010 04:55:54 -0400 Received: from mysql1.xlhost.de ([213.202.242.106]:47256) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OC7jM-0006K3-Ab for emacs-orgmode@gnu.org; Wed, 12 May 2010 04:55:52 -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: emacs-orgmode@gnu.org --- lisp/org-wl.el | 65 +++++++++++++++++++++++++++++-------------------------- 1 files changed, 34 insertions(+), 31 deletions(-) diff --git a/lisp/org-wl.el b/lisp/org-wl.el index 3faf2ea..a5c8218 100644 --- a/lisp/org-wl.el +++ b/lisp/org-wl.el @@ -181,7 +181,8 @@ ENTITY is a message entity." wl-summary-buffer-elmo-folder msgnum) (elmo-msgdb-overview-get-entity msgnum (wl-summary-buffer-msgdb)))) - (message-id (org-wl-message-field 'message-id wl-message-entity)) + (message-id + (org-wl-message-field 'message-id wl-message-entity)) (from (org-wl-message-field 'from wl-message-entity)) (to (org-wl-message-field 'to wl-message-entity)) (xref (org-wl-message-field 'xref wl-message-entity)) @@ -201,16 +202,18 @@ ENTITY is a message entity." ;; maybe create http link (cond - ((and (eq folder-type 'shimbun) org-wl-shimbun-prefer-web-links xref) + ((and (eq folder-type 'shimbun) + org-wl-shimbun-prefer-web-links xref) (org-store-link-props :type "http" :link xref :description subject :from from :to to :message-id message-id :subject subject)) ((and (eq folder-type 'nntp) org-wl-nntp-prefer-web-links) - (setq link (format - (if (string-match "gmane\\." folder-name) - "http://mid.gmane.org/%s" - "http://groups.google.com/groups/search?as_umsgid=%s") - (org-fixup-message-id-for-http message-id))) + (setq link + (format + (if (string-match "gmane\\." folder-name) + "http://mid.gmane.org/%s" + "http://groups.google.com/groups/search?as_umsgid=%s") + (org-fixup-message-id-for-http message-id))) (org-store-link-props :type "http" :link link :description subject :from from :to to :message-id message-id :subject subject)) @@ -229,34 +232,34 @@ When called with one prefix, open message in namazu search folder 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 + (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))))) + (and article (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets + article)) + (wl-summary-redisplay))))) (provide 'org-wl) -- 1.7.1