 (setq gnus-total-expirable-newsgroups
           (regexp-opt '("grot.bulk"
 			"grot.Spam"
-			"grot.auto"
-			"ms.sellbuy"
-			"ms.msbike"
-			"ms.homeown"
-			"ms.wwcomifm"
-			"ms.litebulb"
-			"ms.car"
-			"ms.moc"
-			"ms.yammer"
-			"ms.mstamil"
-			"ms.invclub"
-			"ms.parents"
-			"ms.mssoc")))
+			"grot.auto")))
 
 (defun my-message-mode-setup ()
   (setq make-backup-files nil)

  (interactive)
  (gnus-summary-move-article nil gmail-trash-newsgroup))

(setq gmail-trash-newsgroup "nnmaildir+mso365:grot.Trash")
;(define-key gnus-summary-mode-map "d" 'gnus-move-to-trash)

(setq bbdb-send-mail-style 'gnus)

        ;; Here's where you put your email information.
        ;; Basically, you just add all the regexps you want for
        ;; both the 'to' field and the 'cc' field.
        (if (and (not (string-match "aditya@grot.org" (or to "")))
                 (not (string-match "aditya@grot.org" (or cc ""))))
            (progn
              (message "BBDB unfiling; message to: %s cc: %s"
                       (or to "noone") (or cc "noone"))
