Simple keybindings for Gmail/IMAP use

[Bob Newell]

;; Here are a few keybindings to help with moving Gmail messages from
;; INBOX (typically) to wherever. Strangely enough I've not seen these
;; published online even though the concept is extremely simple and
;; requires no (or little) knowledge or skill to implement (which is why I
;; could do it).

;; An annoyance with GNUS/Gmail is that if you read something in GNUS,
;; it still appears in the INBOX if you go to the Web interface. Mail
;; needs to be moved, not just read, to get it out of INBOX. Archiving
;; moves it to "All Mail" (even though it's already there, which is
;; kind of silly but that's how it works). Moving to Spam or Trash
;; work as expected, as does moving something /to/ INBOX. 

;; Certainly, you can use 'Bm' and then select a folder to move to. But
;; I wanted something specific for Gmail that was a little faster.

;; To use these, just put the cursor on the mail you want to move (in
;; the group summary). Alternatively, process mark a selection of
;; mails (with '#') to have them all moved at once (to the same place,
;; of course).

;; Prefix v (reserved by gnus for user stuff?) then
;; a=archive (to 'all mail') s=spam t=trash i=inbox

;; Archive.
  (define-key gnus-summary-mode-map "va" 
     (lambda () (interactive)
         (gnus-summary-move-article nil "nnimap+gmail:[Gmail]/All Mail" nil)))
;; Spam.
  (define-key gnus-summary-mode-map "vs" 
     (lambda () (interactive)
         (gnus-summary-move-article nil "nnimap+gmail:[Gmail]/Spam" nil)))
;; Trash.
  (define-key gnus-summary-mode-map "vt" 
     (lambda () (interactive)
         (gnus-summary-move-article nil "nnimap+gmail:[Gmail]/Trash" nil)))
;; Move to INBOX (such as for false positive spam).
  (define-key gnus-summary-mode-map "vi" 
     (lambda () (interactive)
         (gnus-summary-move-article nil "nnimap+gmail:[Gmail]/INBOX" nil)))