Q: How do I expire and really delete mails in gnus?

Q: How do I expire and really delete mails in gnus?

[Torben Knudsen]

How do I expire and really delete mails in gnus?
I try to use auto expire.

I have included my .gnus below

;*** BBDB
(require 'bbdb)
(bbdb-initialize 'gnus 'message 'sc 'w3)
(autoload 'bbdb/gnus-lines-and-from "bbdb-gnus")
(setq gnus-optional-headers 'bbdb/gnus-lines-and-from)
(setq bbdb/gnus-mark-known-posters t)
(setq bbdb/gnus-header-prefer-real-names t)
(setq bbdb/gnus-header-show-bbdb-names t)
(setq bbdb-auto-revert-p t)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)=20
(define-key message-mode-map "\C-\t" 'bbdb-complete-name)
(setq bbdb-north-american-phone-numbers-p nil)

;*** Use left and right arrow to something usefull
(defun my-gnus-topic-show-topic ()
  "Show the hidden topic."
  (interactive)
  (if (gnus-group-topic-p)
  (gnus-topic-show-topic)
  (gnus-topic-read-group)))
=09=09
(add-hook=20
 'gnus-started-hook
 '(lambda ()
    (define-key gnus-topic-mode-map [(right)] 'my-gnus-topic-show-topic)
    (define-key gnus-topic-mode-map [(left)]  'gnus-topic-hide-topic)
    ))
=09=09=09=20=20=20=20=20=20
(defun my-gnus-summary-show-thread ()
  "Show thread without changing cursor positon."
  (interactive)
  (gnus-summary-show-thread)
  (beginning-of-line)
  (forward-char 1))
=09=09=09=09=09
(define-key gnus-summary-mode-map [(right)] 'my-gnus-summary-show-thread)
(define-key gnus-summary-mode-map [(left)]  'gnus-summary-hide-thread)

;*** Misc
(setq make-backup-files nil)
(setq user-mail-address "tk@control.auc.dk")
(setq gnus-local-domain "control.auc.dk")
(setq gnus-local-organization "Aalborg University, Institute of Electronic =
Systems")
(setq mail-source-delete-incoming t)

(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)

(setq gnus-large-newsgroup 300)
(setq nnmail-large-newsgroup 300)
(add-hook 'gnus-after-getting-new-news-hook 'gnus-group-save-newsrc)
(setq gnus-suppress-duplicates t)
(setq nnmail-treat-duplicates 'delete)
(setq gnus-interactive-exit nil)
(setq gnus-thread-ignore-subject t)

(setq gnus-nntp-server "sunsite.auc.dk")
;(setq gnus-article-save-directory "~/Mail/archive/")
;(setq gnus-cache-directory "~/Mail/cache/")
(setq gnus-message-archive-group "nnimap+AUC:INBOX.mbox-out")

;(setq nnmail-prepare-incoming-message-hook 'article-de-quoted-unreadable)

;*** Qoute
(setq message-cite-function 'sc-cite-original)
(setq sc-citation-leader "") ; No leading space in quote

;*** Default headers
(setq message-default-headers "Mime-Version: 1.0\nContent-Type: text/plain;=
 charset=3DISO-8859-1\nContent-Transfer-Encoding: 8bit\n")

;*** TK part
;(setq gnus-use-adaptive-scoring t)
;(setq gnus-default-article-saver 'gnus-summary-save-in-file)

;*** nnimap stuff
; for test
;(setq imap-log "imaplog")

(setq gnus-secondary-select-methods
        '((nnimap "AUC"
                  (nnimap-address "imap.control.auc.dk")
                  (nnimap-authenticator login))
))

(add-hook 'mail-setup-hook 'dansk-double-mode)

;*** Setup group buffer format
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
(setq gnus-group-line-format "%M%S<%4R:%3y>: %(%-40,40g%) %2,2~(cut 6)d-%2,=
2~(cut 4)d\n")
(setq gnus-summary-line-format "%U%R%z%I%(%[%d %4c: %-20,20n%]%) %s\n")
(define-key gnus-summary-mode-map [delete] 'gnus-summary-delete-article)

;;
;; *** automatic mail scan without manual effort.
;;
;; level-specified group scanner.
(defun gnus-demon-scan-mail-or-news-and-update (level)
"Scan for new mail, updating the *Group* buffer."
  (let ((win (current-window-configuration)))
    (unwind-protect
        (save-window-excursion
          (save-excursion
            (when (gnus-alive-p)
              (save-excursion
                (set-buffer gnus-group-buffer)
                (gnus-group-get-new-news level)))))
      (set-window-configuration win))))
;;
;; level 2: only mail groups are scanned.
(defun gnus-demon-scan-mail-and-update ()
"Scan for new mail, updating the *Group* buffer."
  (gnus-demon-scan-mail-or-news-and-update 2))
(gnus-demon-add-handler `gnus-demon-scan-mail-and-update 5 nil)
;;
;; level 3: mail and local news groups are scanned.
(defun gnus-demon-scan-news-and-update ()
"Scan for new mail, updating the *Group* buffer."
  (gnus-demon-scan-mail-or-news-and-update 3))
(gnus-demon-add-handler `gnus-demon-scan-news-and-update 20 20)

(setq nnimap-expunge-on-close 'always)
(defvar nnimap-split-crosspost nil)
(setq nnimap-split-inbox '("INBOX"))

(setq gnus-auto-expirable-newsgroups "nnimap+AUC:.*")
(setq gnus-inhibit-user-auto-expire nil)

;*** Mail splitting
(setq nnimap-split-rule
 '(
  ("INBOX.Spam-mail"	"^X-Spam-Flag:.*YES")
  ("INBOX.staff"	"^\\(To\\|Cc\\):.*staff")
  ("INBOX.farming"
  "^\\(To\\|Cc\\|From\\|Subject\\):.*farming@.*")
  ("INBOX.Roemer" "^\\(To\\|Cc\\|From\\|Subject\\):.*r\\(oe\\|=F8\\)mer.*")
  ("INBOX.wind"		"^Subject:.*wind.*")
  ("INBOX.uncover"	"^\\(From\\|Subject\\):.*\\(ingenta\\|reveal\\|uncover\\=
).*")
  ("INBOX.conference"	"^Subject:.*\\(call.*paper\\|conference\\|congress\\)=
.*")
  ("INBOX.Eletter"	"^Subject:.*Eletter.*")
  ("INBOX.tk"	        "^\\(To\\|Cc\\|From\\):.*tk@.*")
  ("INBOX.misc"		"")
       )
)


-- 
Regards
                 
Torben Knudsen

Re: Q: How do I expire and really delete mails in gnus?

[Fabrice Medio]

Torben Knudsen <tk@control.auc.dk> writes:

> How do I expire and really delete mails in gnus?
> I try to use auto expire.

gnus-summary-delete-article (B-[backspace]) should do.

Fabrice