Re: Change in splitting from emacs 22/gnus 5.11 and emacs 23/gnus 5.13?

[Frank Fredstone]

asjo@koldfront.dk (Adam Sjøgren) writes:

> On Fri, 08 Jan 2010 10:57:47 -0800, Frank wrote:
>
>> Thanks. No, it is not emptied.
>
> Maybe it's time to share your entire configuration? (Passwords obscured,
> of course).

Ok. Gathering the configuration, I noticed that I'm actually only
using mbox files... Sorry, it's been a while since I set this
up. Dovecot stores my mail in 2 places, this first is the inbox:

/var/mail/user
$HOME/.dovecot

Below the later, there is one mbox file per IMAP folder.

My .gnus.el is:

(setq gnus-summary-line-format "%U%R%z%I%(%[%4L: %-20,20n%]%) %d %s\n")
(setq gnus-select-method '(nntp "news.evilmegacorp.com"))
(setq nnmail-spool-file nil)
(setq nnmail-get-new-mail nil)
(setq imap-debug t)

(setq gnus-secondary-select-methods
          '((nnml "mail")
        (nnimap "asdf"
                                (nnimap-address "localhost")
                                (nnimap-server-port 143)
                                (nnimap-stream network))))

(setq gnus-post-method '(nntp "news.evilmegacorp.com"))

(setq message-send-mail-function 'smtpmail-send-it
      smtpmail-starttls-credential '(("mail.evilmegacorp.com" 587 nil nil))
      smtpmail-auth-credentials '(("mail.evilmegacorp.com" 587 "asdf" nil))
      smtpmail-default-smtp-server "mail.evilmegacorp.com"
      smtpmail-smtp-server "mail.evilmegacorp.com"
      smtpmail-smtp-service 587
      smtpmail-local-domain "not.no")
(setq smtpmail-local-domain "asdf.not.no")
(setq smtpmail-debug-info t)
(load-library "smtpmail")
(setq smtpmail-code-conv-from nil)
(defun smtpmail-fqdn ()
  smtpmail-local-domain)


(setq mail-host-address "not.no")
(setq user-mail-address "none@not.no")
(setq user-full-name "Frank Fredstone")

(setq my-default-headers "Bcc: none@localhost")
(setq message-default-headers my-default-headers)

(require 'sendmail)
(setq mail-from-style 'parens)

(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(add-hook 'gnus-topic-mode-hook
      (function
       (lambda ()
         (define-key gnus-topic-mode-map " " 'none-select-unread)
         (define-key gnus-topic-mode-map "^M" 'none-select-group))))

(defun none-select-unread ()
  (interactive)
  (gnus-topic-select-group nil))

(defun none-select-group ()
  (interactive)
  (gnus-topic-select-group t))