Re: newbie question: trouble with mail splitting

[physiculus]

Hello,
as you suggest, i post my entire gnus.el.
For security reasons i delete my account informations.

Hope it helps :-)

Regards
Poul

(require 'nnir)

(add-to-list 'load-path "/home/held/.emacs.d/lisp/nnnotmuch/")
(require 'nnnotmuch)
(push '(nnnotmuch "") gnus-secondary-select-methods)
(setq nnnotmuch-groups '((""
                          ("test.woche" "date:7days.."))))
(setq nnnotmuch-program "notmuch") ; This is the default.

(setq nnir-method-default-engines '((nnimap . notmuch) (nnmaildir . notmuch)))
(setq nnir-notmuch-remove-prefix "/home/held/Maildirnm/")

;; gnus gesprächiger
(setq gnus-verbose 9)
(setq gnus-verbose-backends 8)

;;(setq gnus-default-charset 'iso-8859-1)
;;(setq gnus-summary-show-article-charset-alist '((1 . iso-8859-1) (2 . utf-8)))
(setq gnus-summary-tool-bar 'gnus-summary-tool-bar-gnome)

(setq mail-user-agent 'gnus-user-agent)
(setq smtpmail-queue-mail nil)
(setq gnus-agent-prompt-send-queue t)
(setq gnus-agent-queue-mail t)
;;(setq smtpmail-queue-dir "~/News/drafts/queue/cur")
(setq smtpmail-queue-dir "~/Maildirnm/queue")

;; (defun choose-msmtp-account ()
;;   (if (message-mail-p)
;;       (save-excursion
;;         (let*
;;             ((from (save-restriction
;;                      (message-narrow-to-headers)
;;                      (message-fetch-field "from")))
;;              (account
;;               (cond
;;                ((string-match "xxx@googlemail.com" from) "gmail")
;;                ((string-match "xxx.xxx@holnishaus.de" from) "xeimer_j")
;;                ((string-match "xxx@holnishaus.de" from) "jx")
;;                ((string-match "xxx@holnishaus.de" from) "kx"))))
;;           ;;(setq sendmail-program "/usr/bin/msmtp")
;;           ;;(setq message-sendmail-extra-arguments (list '"-a" account "-N 
failure,delay,success" "-R headers"))
;;           (setq message-sendmail-extra-arguments (list 'account))
;;           ))))
;; ;; testweise auf nil
;; ;;(setq message-sendmail-envelope-from 'header)
;; (add-hook 'message-send-mail-hook 'choose-msmtp-account)

;; Aufhübschen. Zeigt Gesamtzahl und ungelesene Mails
(setq gnus-group-line-format "%M%S%p%P%5y/%5t:%B%(%g%)\n")
;;(setq gnus-summary-line-format "%U%R%B|%-16,16&user-date;|%5k|%-30,30f| 
%s|\n;")
;;(setq gnus-summary-line-format ":%U%R %B %20s %-60=|%4L |%-20,20f 
|%&user-date; \n")
(setq gnus-user-date-format-alist '((t . "%Y-%m-%d %H:%M"))
     gnus-summary-line-format "%U%R%z%O|%&user-date;|%5k|%-45,45F%B 
%~(max-right 70)~(pad-right 70)s %{%20uM%}\n"
     gnus-article-mode-line-format "Gnus: %g %S %m %w"
     gnus-thread-sort-functions '(gnus-thread-sort-by-date)
     gnus-article-sort-functions '(gnus-thread-sort-by-date)
     ;;gnus-sum-thread-tree-false-root ""
     gnus-sum-thread-tree-leaf-with-other "├► "
     ;;gnus-sum-thread-tree-root ""
     gnus-sum-thread-tree-single-leaf "╰► "
     gnus-sum-thread-tree-vertical ""
     gnus-summary-make-false-root 'none
     ;;gnus-summary-same-subject "-||-"
     gnus-summary-same-subject ""
     )

;;Generate the mail headers before you edit your message.
(setq message-generate-headers-first nil)

;;The message buffer will be killed after sending a message.
(setq message-kill-buffer-on-exit t)

;; eigene Tags setzen
(setq gnus-registry-marks
      ' (
         (Wichtig :char 119 :image "summary_wichtig")
         (To-Do  :char 116 :image "summary_todo")
         (Persoenlich :char 112 :image "summary_persoenlich")
         (DIY :char 100 :image  "summary_diy")
         (Spaeter :char 115 :image  "summary_spaeter")
         (Linzessin :char 105 :image "summary_linzessin")
         (Held :char 104 :image "summary_held")
         (Heldenaufgaben :char 97 :image "summary_heldenaufgaben" )
         (Heldennahrung :char 110 :image "summary_heldennahrung")
         (Pflanzen :char 122 :image "summary_pflanzen")
         (Pflanzenpflege :char 101 :image "summary_pflanzenpflege")
         (Pflanzenarbeiten :char 114 :image "summary_pflanzarbeiten")
         (Pflanzenkauf :char 107 :image "summary_pflanzenkauf")
         (Pflanzennachkauf :char 99 :image "summary_pflanzennachkauf")
         (Garten :char 103 :image "summary_garten")
         (Gartenpflege :char 102 :image "summary_gartenpflege")
         (GaLa :char 108 :image "summary_gala")
         (Haus :char 117 :image "summary_haus")
         (Innenausbau :char 101 :image "summary_innenausbau")
         )
        )
;; show the marks by name (see 'gnus-registry-marks'):
(defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-names)

(setq gnus-registry-max-entries 5000)
(gnus-registry-initialize)

;; The registry knows how to map each Message-ID to the group it's
;; in. This can be leveraged to enhance the “article refer method”,
;; the thing that tells Gnus how to look up an article given its
;; Message-ID (see Finding the Parent).

;; The nnregistry refer method does exactly that. It has the
;; advantage that an article may be found regardless of the group
;; it's in—provided its Message-ID is known to the registry. It can
;; be enabled by augmenting the start-up file with something along
;; these lines:
(setq gnus-refer-article-method
           '(current
             (nnregistry)))
;; The example above instructs Gnus to first look up the article in the current
;; group, or, alternatively, using the registry.

(spam-initialize)
(setq spam-log-to-registry t)     ; for spam autodetection
(setq spam-use-regex-headers t)   ; catch X-Spam-Flag (SpamAssassin)

;; split
;; client-side imap splitting ermöglichen
(gnus-group-split-setup t)
(setq nnimap-split-download-body t)
(setq nnmail-crosspost nil)
(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-split-fancy
      '(|
        ;;(: spam-split 'spam-use-regex-headers)
        (To "emacs-orgmode@gnu.org" "nnmaildir+Lokal:OrgDigest")
        (From ".*n3.nabble.com" "nnmaildir+Lokal:notmuch")
        (From ".*pinterest.com" "nnmaildir+Lokal:Pinterest")
        (Subject "^FRITZ!.*" "nnmaildir+Lokal:fritz")
        (From "forum@papyrus.de" "nnmaildir+Lokal:Papyrus")
        ;;(: spam-split)
        ("mail.misc")
        ))

;; (setq nnmail-split-fancy
;;       '(|
;;         (: spam-split)
;;         "inbox"))

;; initialisiere split
(setq gnus-group-split-setup t)
(setq nnmail-pre-get-new-mail-hook '(gnus-group-split-update))

;; @see http://www.emacswiki.org/emacs/GnusGmail#toc1
(setq gnus-select-method '(nnnil "")) ;; if you read news groups
;;(setq gnus-select-method '(nntp "nntp.aioe.org"))

(setq gnus-secondary-select-methods '(
(nnimap "GMail"
                                              (nnimap-address "imap.gmail.com")
                                              (nnimap-server-port "imaps")
                                              (nnimap-user "xxx@googlemail.com")
                                              (nnimap-stream ssl)
                                              (nnimap-split-methods 
'nnmail-split-fancy)
                                              (get-new-mail t)
                                              (nnir-search-engine imap)
                                              )
(nnimap "Jx"
                                              (nnimap-address 
"wpxxx.mail.server-he.de")
                                              (nnimap-server-port "imap")
                                              (nnimap-user "xx-xx")
                                              (nnimap-stream starttls)
                                              (get-new-mail nil)
                                              )
(nnimap "Jx_"
                                              (nnimap-address 
"wpxxx.mail.server-he.de")
                                              (nnimap-server-port "imap")
                                              (nnimap-user "xx-xx")
                                              (nnimap-stream starttls)
                                              (get-new-mail nil)
                                              )
(nnimap "Jx"
                                              (nnimap-address 
"wpxxx.mail.server-he.de")
                                              (nnimap-server-port "imap")
                                              (nnimap-user "xx-xx")
                                              (nnimap-stream starttls)
                                              (nnimap-split-methods 
'nnmail-split-fancy)
                                              (get-new-mail t)
                                              (nnir-search-engine imap)
                                              )
(nnimap "Jx_"
                                              (nnimap-address 
"wpxxx.mail.server-he.de")
                                              (nnimap-server-port "imap")
                                              (nnimap-user "xx-xx")
                                              (nnimap-stream starttls)
                                              (nnimap-split-methods 
'nnmail-split-fancy)
                                              (get-new-mail t)
                                              (nnir-search-engine imap)
                                              )
(nnimap "Kx"
                                              (nnimap-address 
"wpxxx.mail.server-he.de")
                                              (nnimap-server-port "imap")
                                              (nnimap-user "xx-xx")
                                              (nnimap-stream starttls)
                                              (nnimap-split-methods 
'nnmail-split-fancy)
                                              (get-new-mail t)
                                              (nnir-search-engine imap)
                                              )

(nnmaildir "GMail_hier" (directory "~/Maildirnm/gmail") (directory-files
                                     nnheader-directory-files-safe)
                                     (get-new-mail nil))
(nnmaildir "Jx_hier"
                                     (directory "~/Maildirnm/jx")
                                     (directory-files 
nnheader-directory-files-safe)
                                     (get-new-mail nil))

(nnmaildir "Jxx_hier"
                                     (directory "~/Maildirnm/jx_")
                                     (directory-files 
nnheader-directory-files-safe)
                                     (get-new-mail nil))
(nnmaildir "Kx_hier"
                                     (directory "~/Maildirnm/kx")
                                     (directory-files 
nnheader-directory-files-safe)
                                     (get-new-mail nil))
(nnmaildir "Lokal"
(directory "~/Maildirnm")
(directory "~/Maildirnm/archive")
(directory "~/Maildirnm/attachments")
(directory "~/Maildirnm/BugsandFeatures")
(directory "~/Maildirnm/bwp")
(directory "~/Maildirnm/Campact")
(directory "~/Maildirnm/draft")
(directory "~/Maildirnm/drafts")
(directory "~/Maildirnm/Ebay")
(directory "~/Maildirnm/Ebay_noch_suchen")
(directory "~/Maildirnm/Emacs")
(directory "~/Maildirnm/emms")
(directory "~/Maildirnm/Enteignung")
(directory "~/Maildirnm/Feedburner")
(directory "~/Maildirnm/fritz")
(directory "~/Maildirnm/Garten")
(directory "~/Maildirnm/Held_Wichtig")
(directory "~/Maildirnm/inbox")
(directory "~/Maildirnm/Informatik")
(directory "~/Maildirnm/Instructables")
(directory "~/Maildirnm/Lehrerausbildung")
(directory "~/Maildirnm/Linzessin")
(directory "~/Maildirnm/logins")
(directory "~/Maildirnm/mnp-notes")
(directory "~/Maildirnm/mu")
(directory "~/Maildirnm/notmuch")
(directory "~/Maildirnm/OrgDigest")
(directory "~/Maildirnm/Orgmode")
(directory "~/Maildirnm/Papyrus")
(directory "~/Maildirnm/Physik")
(directory "~/Maildirnm/Politik")
(directory "~/Maildirnm/Privat")
(directory "~/Maildirnm/ProT")
(directory "~/Maildirnm/queue")
(directory "~/Maildirnm/rclone")
(directory "~/Maildirnm/Sammelpost")
(directory "~/Maildirnm/sent")
(directory "~/Maildirnm/SMS")
(directory "~/Maildirnm/Spam")
(directory "~/Maildirnm/Später")
(directory "~/Maildirnm/SteuerNews")
(directory "~/Maildirnm/Strom")
(directory "~/Maildirnm/trash")
(directory "~/Maildirnm/Wanderlust")
(directory "~/Maildirnm/Wichtig")
(directory "~/Maildirnm/ZuErledigen")
(directory "~/Maildirnm/Privat")

(directory-files nnheader-directory-files-safe)
(get-new-mail t))
))

;; ask encryption password once
;;(setq epa-file-cache-passphrase-for-symmetric-encryption t)

(setq gnus-thread-sort-functions
      '(gnus-thread-sort-by-most-recent-date))

;; Make Gnus NOT ignore [Gmail] mailboxes
(setq gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"]\"[#'()]")

;; NO 'passive
;;(setq gnus-use-cache t)

;; BBDB: Address list
;;(add-to-list 'load-path "~/.emacs.d/bbdb/")
(require 'bbdb)
(bbdb-initialize 'message 'gnus)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-message)
(setq bbdb/mail-auto-create-p t
      bbdb/news-auto-create-p t)

;; auto-complete emacs address using bbdb UI
(add-hook 'message-mode-hook '(lambda ()
             (flyspell-mode t)
             (local-set-key (kbd "TAB") 'bbdb-complete-mail)))

;; Fetch only part of the article if we can with 'some.
;; I saw this in someone's .gnus
(setq gnus-read-active-file 'some)

;; open attachment
(eval-after-load 'mailcap '(progn
     (cond
      ;; on OSX, maybe change mailcap-mime-data?
      ((eq system-type 'darwin))
      ;; on Windows, maybe change mailcap-mime-data?
      ((eq system-type 'windows-nt))
      (t
       ;; Linux, read ~/.mailcap
       (mailcap-parse-mailcaps)))))

(setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references)

(setq gnus-thread-hide-subtree nil)
(setq gnus-thread-ignore-subject t)

(setq mm-text-html-renderer 'gnus-w3m) ; OPTIONAL

;; ace-link nutzen um links anzuspringen
(define-key gnus-summary-mode-map (kbd "M-L") 'ace-link-gnus)
(define-key gnus-article-mode-map (kbd "M-L") 'ace-link-gnus)

;; using smileys
(setq gnus-treat-display-smileys t)
(setq smiley-style 'medium)

;; 
http://www.gnu.org/software/emacs/manual/html_node/gnus/_005b9_002e2_005d.html
(setq gnus-use-correct-string-widths nil)

;; posting styles
(setq gnus-parameters '(("Jx"
         (posting-style
          (address "xxx@holnishaus.de")
          (name "jx")
          ("X-Message-SMTP-Method" "smtp wpxxx.mailout.server-he.de 25 xx-xx")
          (body "")
         ))
        ("J_"
         (posting-style
          (address "xxx@holnishaus.de")
          (name "jx_")
          ("X-Message-SMTP-Method" "smtp wpxxx.mailout.server-he.de 25 xx-xx")
          (body "")
          ))
        ("Kx"
         (posting-style
          (address "xxx@holnishaus.de")
          (name "kx")
          ("X-Message-SMTP-Method" "smtp wpxxx.mailout.server-he.de 25 xx-xx")
          (body "")
          ))
        ("GMail"
         (posting-style
          (address "xxx@googlemail.com")
          (name "ph")
          ("X-Message-SMTP-Method" "smtp smtp.gmail.com 587 xxx@googlemail.com")
          (body "")
          ))
        ))