bug#19041: Bug#769340: GNUS Mails marked read after connection dropps

[Christoph Egger]

Hi!

Rob Browning <rlb@defaultvalue.org> writes:
> [If possible, please preserve the -forwarded address in any replies.]
>
> I realize we may need more information, but this seems potentially
> serious enough that I wanted to go ahead and forward it immediately.

It did happen twice for me yesterday (really bad WLAN) and once during
debconf though it's certainly not happening always.

  Christoph

FWIW:

(require 'epa)
(require 'bbdb)
(bbdb-initialize 'gnus)
(require 'gnus)

(setq message-send-mail-function 'message-send-mail-with-sendmail)
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)

(gnus-demon-add-handler 'gnus-demon-scan-news 5 t)
(gnus-demon-init)

(setq user-mail-address "christoph@christoph-egger.org"
      user-full-name "Christoph Egger"
      mm-verify-option 'known
      mm-decrypt-option 'known
      gnus-buttonized-mime-types '("multipart/signed" "multipart/encrypted")
      gnus-select-method '(nntp "news.gmane.org")
      mail-user-agent 'sendmail-user-agent
      bbdb-send-mail-style 'message)

(add-hook 'kill-emacs-hook (lambda () (let ((gnus-interactive-exit nil)) 
(gnus-group-exit))))
      
(setq gnus-secondary-select-methods '((nnimap "Main"
                                              (nnimap-address 
"oteiza.siccegge.de")
                                              (nnimap-authenticator login)
                                              (nnimap-stream tls)
                                              (nnimap-authinfo-file 
"/home/christoph/.imap-authinfo"))))

(mml-signencrypt-style "pgpmime" 'combined)

(setq gnus-extra-headers '(To Cc Newsgroups Keywords List-Id Message-Id)
      nnmail-extra-headers gnus-extra-headers)

(ad-activate 'mm-url-insert)

(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)