diff options
| author | Sebastian Spaeth <Sebastian@SSpaeth.de> | 2010-04-12 11:23:48 +0200 |
|---|---|---|
| committer | Sebastian Spaeth <Sebastian@SSpaeth.de> | 2010-04-12 11:23:48 +0200 |
| commit | c786c8744bf6d7f697d3215bd70e63dcfe424543 (patch) | |
| tree | 02540a55afb6c8eb309d63ed80d3ed36520e2fbc | |
| parent | bded18018dcb029b6b0570af9cf8edf2c6066cd6 (diff) | |
emacstips: fix indentation of the code block to actually show up as such.
Signed-off-by: Sebastian Spaeth <Sebastian@SSpaeth.de>
| -rw-r--r-- | emacstips.mdwn | 36 |
1 files changed, 18 insertions, 18 deletions
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)) + )) |