X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=emacstips.mdwn;h=074c593dfa27286c12a67b67f553bbe69a6f509f;hb=663edf5a4de7595f9e2a480db608f6b1ad537245;hp=dc16430af49a34661cfc44e2ef868c62d0b8f497;hpb=12db4f1ce86503bf1a81d40b938e5b55893bb01a;p=notmuch-wiki

diff --git a/emacstips.mdwn b/emacstips.mdwn
index dc16430..074c593 100644
--- a/emacstips.mdwn
+++ b/emacstips.mdwn
@@ -104,29 +104,26 @@ is an option to collect those to a separate file (which is only
 loaded when `notmuch` is invoked). To do this, write, for example
 a file called `~/.emacs.d/my-notmuch.el`:
 
-        ;; my-notmuch.el -- my notmuch mail configuration
-        ;;
+        ;;; my-notmuch.el -- my notmuch mail configuration
+        ;;;
         
-        ;; add here stuff required to be configured *before*
-        ;; notmuch is loaded;
+        ;;; add here stuff required to be configured *before*
+        ;;; notmuch is loaded;
 
-        ; uncomment and modify in case some elisp files are not found in load-path
-        ; (add-to-list 'load-path "~/vc/ext/notmuch/emacs")
+        ;; uncomment and modify in case some elisp files are not found in load-path
+        ;; (add-to-list 'load-path "~/vc/ext/notmuch/emacs")
 
-        ;; load notmuch 
+        ;;; load notmuch 
         (require 'notmuch)
 
-        ;; add here stuff required to be configured *after*
-        ;; notmuch is loaded;
+        ;;; add here stuff required to be configured *after*
+        ;;; notmuch is loaded;
 
-        ;(setq user-mail-address (notmuch-user-primary-email)
-        ;      user-full-name (notmuch-user-name))
+        ;; uncomment & modify if you want to use external smtp server to send mail
+        ;; (setq smtpmail-smtp-server "smtp.server.tld"
+        ;;       message-send-mail-function 'message-smtpmail-send-it)
 
-        ; uncomment & modify if you want to use external smtp server to send mail
-        ; (setq smtpmail-smtp-server "smtp.server.tld"
-        ;       message-send-mail-function 'message-smtpmail-send-it)
-
-Then, adto `.emacs`:
+Then, add to `.emacs`:
 
         (autoload 'notmuch "~/.emacs.d/my-notmuch" "notmuch mail" t)
 
@@ -147,10 +144,10 @@ In notmuch versions up to 0.11.x
             (notmuch-show-add-tag "spam")
             (notmuch-show-remove-tag "inbox")))
 
-Starting from notmuch 0.12 (not released yet) the functions 
-`notmuch-show-add-tag` and `notmuch-show-remove-tag` have changed to
-be more versatile and lost noninteractive use. When upgrading to 0.12 
-the above needs to be changed to this:
+Starting from notmuch 0.12 the functions `notmuch-show-add-tag` and 
+`notmuch-show-remove-tag` have changed to be more versatile and lost
+noninteractive use. When upgrading to 0.12 the above needs to be 
+changed to this:
 
         (define-key notmuch-show-mode-map "S"
           (lambda ()
@@ -161,12 +158,27 @@ the above needs to be changed to this:
 You can do the same for threads in `notmuch-search-mode` by just
 replacing "show" with "search" in the called functions.
 
-(Starting from notmuch 0.12 use `notmuch-search-tag-thread` instead)
+Starting from notmuch 0.12 use `notmuch-search-tag-thread` instead:
+
+        (define-key notmuch-search-mode-map "S"
+          (lambda ()
+            "mark messages in thread as spam"
+            (interactive)
+            (notmuch-show-tag-thread "+spam" "-inbox")))
+
+Starting from notmuch 0.13 use `notmuch-search-tag` -- it has a little
+different usage syntax:
+
+        (define-key notmuch-search-mode-map "S"
+          (lambda ()
+            "mark messages in thread as spam"
+            (interactive)
+            (notmuch-search-tag '("+spam" "-inbox"))))
 
 The definition above makes use of a lambda function, but you could
 also define a separate function first:
 
-        (defun notmuch-show-tag-spam()
+        (defun notmuch-show-tag-spam ()
           "mark message as spam"
           (interactive)
           (notmuch-show-add-tag "spam")
@@ -186,7 +198,7 @@ key:
                 (notmuch-show-remove-tag "deleted")
               (notmuch-show-add-tag "deleted"))))
 
-And version for notmuch 0.12 (not released yet)
+And version for notmuch 0.12
 
         (define-key notmuch-show-mode-map "d"
           (lambda ()
@@ -447,3 +459,37 @@ part.
   2011-02-02.  Note that if you have the Debian package easypg
   installed, it will shadow the fixed version of easypg included with
   emacs.
+
+## Multiple identities using gnus-alias
+
+gnus-alias allows you to define multiple identities when using
+message-mode. You can specify the from address, organization, extra
+headers (including Bcc), extra body text, and signature for each
+identity. Identities are chosen based on a set of rules. When you are
+in message mode, you can switch identities using gnus-alias.
+
+Here is an example configuration.
+
+        ;; Define two identities, "home" and "work"
+        (setq gnus-alias-identity-alist
+              '(("home"
+        	 nil ;; Does not refer to any other identity
+        	 "John Doe <jdoe@example.net>"
+        	 nil ;; No organization header
+        	 nil ;; No extra headers
+        	 nil ;; No extra body text
+        	 "~/.signature")
+        	("work"
+        	 nil
+        	 "John Doe <john.doe@example.com>"
+        	 "Example Corp."
+        	 (("Bcc"	.	"john.doe@example.com"))
+        	 nil
+        	 "~/.signature.work")))
+        ;; Use "home" identity by default
+        (setq gnus-alias-default-identity "home")
+        ;; Define rules to match work identity
+        (setq gnus-alias-identity-rules
+              '(("work" ("any" "john.doe@\\(example\\.com\\|help\\.example.com\\)" both) "work"))
+        ;; Determine identity when message-mode loads
+        (add-hook 'message-setup-hook 'gnus-alias-determine-identity)