X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=emacstips.mdwn;h=5b7fd200cc5f41fc06c79303be37408c70af763d;hb=c786c8744bf6d7f697d3215bd70e63dcfe424543;hp=c0f7617c47ac6acf500fb93951902322b7723d98;hpb=bded18018dcb029b6b0570af9cf8edf2c6066cd6;p=obsolete%2Fnotmuch-wiki

diff --git a/emacstips.mdwn b/emacstips.mdwn
index c0f7617..5b7fd20 100644
--- a/emacstips.mdwn
+++ b/emacstips.mdwn
@@ -222,21 +222,21 @@ As its name implies, notmuch isn't really doing that much (which is part of its
 
   [This mail](http://mid.gmane.org/87y6gtnkch.fsf@SSpaeth.de) (id:87y6gtnkch.fsf@SSpaeth.de) posted some code, that -when inserted in your .emacs file- will add a User-Agent header (which is hidden during composing and in notmuch show, but which can be seen when viewing all headers of a mail):
 
-  If you insert this slab of code, you will get a User-Agent header for notmuch 
-          ;; set the User-Agent string whenever we invoke message mode
-          (add-hook 'message-mode-hook '(lambda()
-              ;; check if User-Agent is a required header and set it if not
-              (if (not (memq 'User-Agent message-required-mail-headers))
-                  (setq message-required-mail-headers 
-                        (append message-required-mail-headers '(User-Agent))))
-              ;; hide the User-Agent header if not already hidden
-              (if (not (memq '"^User-Agent:" message-hidden-headers))
-                  (setq message-hidden-headers 
-                        (append message-hidden-headers '("^User-Agent:"))))
-              ;; create user agent string
-              (let ((notmuch-user-agent (concat 
-                                         (substring (shell-command-to-string (concat notmuch-command " --version")) 0 -1)
-                                         " (Emacs " emacs-version "/"
-                                          system-configuration ")")))
-                (setq message-newsreader notmuch-user-agent))
-          ))
+          If you insert this slab of code, you will get a User-Agent header for notmuch 
+                  ;; set the User-Agent string whenever we invoke message mode
+                  (add-hook 'message-mode-hook '(lambda()
+                      ;; check if User-Agent is a required header and set it if not
+                      (if (not (memq 'User-Agent message-required-mail-headers))
+                          (setq message-required-mail-headers 
+                                (append message-required-mail-headers '(User-Agent))))
+                      ;; hide the User-Agent header if not already hidden
+                      (if (not (memq '"^User-Agent:" message-hidden-headers))
+                          (setq message-hidden-headers 
+                                (append message-hidden-headers '("^User-Agent:"))))
+                      ;; create user agent string
+                      (let ((notmuch-user-agent (concat 
+                                                 (substring (shell-command-to-string (concat notmuch-command " --version")) 0 -1)
+                                                 " (Emacs " emacs-version "/"
+                                                  system-configuration ")")))
+                        (setq message-newsreader notmuch-user-agent))
+                  ))