[Orgmode] [PATCH 2/2] Adjust indentation to meet coding style.

[David Maus]

---
 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