(setq load-path (cons "/usr/share/emacs-snapshot/site-lisp/gnus" load-path)) (setq load-path (cons "/usr/share/emacs-snapshot/site-lisp/gnus-bonus-el" load-path)) ;;Français avec ispell. ;;(setq ispell-program-name "aspell") ;;(setq ispell-dictionary "francais") (setq visible-bell t) ;;(load "ispell") ;;(autoload 'ispell-word "ispell" ;; "Check the spelling of word in buffer." t) ;;(global-set-key "\e$" 'ispell-word) ;;(autoload 'ispell-region "ispell" ;; "Check the spelling of region." t) ;;(autoload 'ispell-buffer "ispell" ;; "Check the spelling of buffer." t) ;;(autoload 'ispell-complete-word "ispell" ;; "Look up current word in dictionary and try to complete it." t) ;;(autoload 'ispell-change-dictionary "ispell" ;; "Change ispell dictionary." t) ;;(autoload 'ispell-message "ispell" ;; "Check spelling of mail message or news post.") ;;(autoload 'ispell-minor-mode "ispell" ;; "Toggle mode to automatically spell check words as they are typed in.") (require 'bbdb) (bbdb-initialize) (autoload 'bbdb/gnus-lines-and-from "bbdb-gnus") (setq gnus-optional-headers 'bbdb/gnus-lines-and-from) (autoload 'bbdb "bbdb-com" "Insidious Big Brother Database" t) (autoload 'bbdb-name "bbdb-com" "Insidious Big Brother Database" t) (autoload 'bbdb-company "bbdb-com" "Insidious Big Brother Database" t) (autoload 'bbdb-net "bbdb-com" "Insidious Big Brother Database" t) (autoload 'bbdb-notes "bbdb-com" "Insidious Big Brother Database" t) (autoload 'bbdb-insinuate-vm "bbdb-vm" "Hook BBDB into VM") (autoload 'bbdb-insinuate-rmail "bbdb-rmail" "Hook BBDB into RMAIL") (autoload 'bbdb-insinuate-mh "bbdb-mhe" "Hook BBDB into MH-E") (autoload 'bbdb-insinuate-gnus "bbdb-gnus" "Hook BBDB into GNUS") (autoload 'bbdb-insinuate-sendmail "bbdb" "Hook BBDB into sendmail") (autoload 'mc-bbdb "bbdb" "Hook BBDB for PGP") (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus) (setq bbdb-send-mail-style 'message) (setq bbdb-use-pop-up nil) (setq bbdb-default-area-code nil) (setq bbdb/mail-auto-create-p nil) (setq bbdb-pop-up-target-lines 7) ;; Pour guess-lang (setq guess-lang-languages-to-guess '("french" "american")) ;; Debug Gnus configuration ;; (setq debug-on-error t) ;;(gnus-compile) (setq gnus-use-correct-string-widths nil) ;;**************************************** ;; Compiling gnus.el * ;;**************************************** ;; regenerate the .gnus.elc if .gnus.el is newer ;;(defun dotgnuscheck! () ;; "If .gnus.el exists and is newer than .gnus.elc, recompile it" ;; (cond ;; ((file-newer-than-file-p "~/.gnus.el" "~/.gnus.elc") ;; (let ((mode-line-format "*** Recompiling .gnus.el ***")) ;; (yow) ;; (sit-for 1) ;; (byte-compile-file "~/.gnus.el") ;; (message ".gnus.elc recompiled --- reloading...") ;; ) ;; (load "~/.gnus.elc" t t t) ;; ))) ;;(dotgnuscheck!) ;;(message "gnus: Loading gnus configuration") ;;**************************************** ;; BASIC IDENTITY settings * ;;**************************************** ;; Some personal configuration (setq user-full-name "Arnaud Fontaine" user-mail-address "arnaud@andesi.org" mail-user-agent (quote message-user-agent)) ;; Set message envelope to content of 'from' (defun my-msg-envelope() "Set `mail-envelope-from' to the value in the from field." (let* ((from (message-fetch-field "From" t)) (first (1+ (string-match "<" from))) (last (string-match ">" from))) (setq mail-envelope-from (substring from first last)))) (add-hook 'message-setup-hook 'my-msg-envelope) ;; Encoding to use (setq gnus-default-charset (quote iso-8859-15) gnus-default-posting-charset (quote iso-8859-15)) (message "gnus: BASIC IDENTITY initialized") ;;**************************************** ;; GnuPG settings * ;;**************************************** ;; Needed modules (require 'pgg) (require 'message) (require 'mailcrypt) (require 'bbdb-pgp) ; (setq pgg-default-scheme 'gpg) (setq pgg-passphrase-cache-expiry 300) ;; Default gnupg key ID (setq pgg-default-user-id "0x5E3619D3") (setq gpg-default-key-id "0x5E3619D3") (setq mm-decrypt-option 'always) (setq mm-verify-option 'always) ; provides "mc-setversion" (load-library "mailcrypt") ;; 2.6 for PGP 2.6, 5.0 for PGP 5.0 (mc-setversion "gpg") (autoload 'mc-install-write-mode "mailcrypt" nil t) (autoload 'mc-install-read-mode "mailcrypt" nil t) (add-hook 'mail-mode-hook 'mc-install-write-mode) (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode) (add-hook 'message-mode-hook 'mc-install-write-mode) (add-hook 'news-reply-mode-hook 'mc-install-write-mode) ;; fetching gpg keys... (setq mc-gpg-always-fetch t) (setq mc-pgp-fetch-methods '(mc-pgp-fetch-from-keyrings mc-pgp-fetch-from-http) ) (setq mc-pgp-keyserver-address "keyserver.linux.it") (setq mc-pgp-keyserver-port 11371) (setq mc-pgp-keyserver-url-template "/pks/lookup?op=get&search=%s&exact=on") ;; Auto encrypt/sign mail if public key available or not ;; (add-hook ;; 'message-send-hook ;; (lambda () ;; (let ((recipient (message-fetch-field "To"))) ;; (cond ((and (not (null recipient)) ;; (or (pgg-lookup-key recipient) ;; (pgg-fetch-key pgg-default-keyserver-address recipient))) ;; (mml-secure-message-encrypt-pgpmime)) ;; (t ;; (mml-secure-message-sign-pgpmime)))))) ;; ;; (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime) (message "gnus: GNUPG initialiazed") ;;**************************************** ;; SPAM Settings * ;;**************************************** ;; (setq spam-use-BBDB t) ;; (setq spam-install-hooks t) ;; (spam-install-hooks-function) ;; (setq spam-use-bogofilter t) (require 'spam) (setq gnus-spam-newsgroup-contents '((".*spam.*" gnus-group-spam-classification-spam) ("\\(?:.*spam.*\\)" gnus-group-spam-classification-ham))) ;; Duck (setq smtpmail-default-smtp-server "localhost") (setq send-mail-function 'smtpmail-send-it) ; not for Gnus (setq message-send-mail-function 'smtpmail-send-it) ; for Gnus (setq spam-mark-only-unseen-as-spam nil) (setq gnus-spam-process-destinations '((".*" "spam"))) ;;(setq spam-split-group "spam") ;; (setq gnus-spam-autodetect t) ;;(setq gnus-spam-process-newsgroups ;; '(("^nnml:.*" ;; ((spam spam-use-bogofilter) (ham spam-use-bogofilter))))) ;; F10 pipe the message as spam ;;(global-set-key (kbd "C-c M-s") ;; '(lambda () (interactive) (shell-command "sa-learn --spam --single "))) ;; F9 pipe the message as ham ;;(global-set-key (kbd "C-c M-h") ;; '(lambda () (interactive) (shell-command "sa-learn --ham --single "))) (message "gnus: SPAM settings initialized") ;;**************************************** ;; GETTING MAILS settings * ;;**************************************** ;; (setq mail-source-delete-incoming t) ;; (setq gnus-directory "~/Mail/") ;; (setq message-directory "~/Mail/") ;;(eval-after-load "mail-source" '(require 'pop3)) ;;(setq mail-sources ;; (list '(directory ;; :path "~/Mail/" ;; :suffix "" ;; )) ;; ) ;; (setq gnus-article-save-directory "~/News") ;; (setq gnus-permanently-visible-groups ".*") ;; MODIFIED ;; (setq gnus-fetch-old-headers 'some) ;; (setq gnus-check-new-newsgroups t) ;; (setq gnus-build-sparse-threads 'more) ;; END ;;(defun kevin-spamassassin () ;; (save-excursion ;; (widen) ;; (if (eq 1 (call-process-region (point-min) (point-max) ;; "spamc" nil nil nil "-c")) ;; "spam"))) ;; Remove mailbox prefix (setq gnus-group-line-format "%M%S%5y/%-5t: %uG %D\n") (defun gnus-user-format-function-G (arg) (concat (car (cdr gnus-tmp-method)) ":" (or (gnus-group-find-parameter gnus-tmp-group 'display-name) (let ((prefix (assq 'remove-prefix (cddr gnus-tmp-method)))) (if (and prefix (string-match (concat "^\\(" (regexp-quote (cadr prefix)) "\\)") gnus-tmp-qualified-group)) (substring gnus-tmp-qualified-group (match-end 1)) gnus-tmp-qualified-group))))) ;; (setq nnimap-nov-is-evil nil) ;; (setq nnimap-search-uids-not-since-is-evil t) ;; Unselect the current mailbox before fetching the mails, otherwise ;; I can't see new mail in the INBOX folder (setq nnimap-need-unselect-to-notice-new-mail t) (setq nnmail-expiry-wait 'immediate) (setq nnmail-expiry-target "nnml:expired") (setq ;; gnus-select-method '(nnmaildir "mymailbox" (directory "~/Mail/")) ;; mail-sources '((maildir :path "~/Mail/" :subdirs ("cur" "nOAew"))) ;; mail-source-delete-incoming t) gnus-select-method '(nnimap "imap.duckcorp.org" (nnimap-expunge-on-close 'always) (nnimap-authinfo-file "/home/arnau/.imap-authinfo"))) ;; (setq ;; gnus-secondary-select-methods '((nntp "news.free.fr"))) ;; (setq nnmail-split-abbrev-alist ;; '((any . "List-Post\\|X-unsubscribe\\|from\\|to\\|cc\\|sender\\|apparently-to\\|delivered-to\\|x-apparently-to\\|resent-from\\|resent-to\\|resent-cc\\|X-Mailing-List\\|X-BeenThere\\|List-id\\|X-Loop\\|Subject") ;; (ml . "cc\\|X-Original-To\\|List-Post\\|X-unsubscribe\\|X-BeenThere\\|List-Id\\|X-Loop\\|X-Mailing-List\\|To\\|List-Post") ;; (to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc\\|delivered-to\\|x-apparently-to") ;; (from . "from\\|sender\\|resent-from"))) (setq nnmail-split-header-length-limit 2048) (setq nnmail-split-methods 'nnmail-split-fancy) (setq nnmail-treat-duplicates 'delete) ;; (setq nnmail-split-fancy ;; '(| ;; (: kevin-spamassassin) ;; (: gnus-group-split-fancy nil t nil) ;; ("Content-Type" "multipart/mixed\\|application/\\(?:msword\\|vnd\\.ms-excel\\|x-msdos-program\\|zip\\)\\|text/\\(?:html\\|richtext\\)") ;; (: nnmail-split-fancy-with-parent) ;; ("Gnus-Warning" "This is a duplicate" "Move") ;; ("X-Spam-Status" "[Yy]es" "spam") ;; (any ".*VIRUS.*" "spam") ;; ;; (: spam-split) ;; (ml "debian-\\(sparc\\|qa\\|python\\|devel\\|mentors\\|hurd\\|kernel\\|security\\|news-french\\|laptop\\|release\\|l10n-french\\|firewall\\|devel-announce\\|devel-french\\)@lists\\.debian\\.org" "debian-\\1") ;; (ml ".*\\(python-modules-team\\|python-modules-commits\\)@lists\\.alioth\\.debian\\.org.*" "debian-python") ;; (ml ".*\\(debtags-commits\\|debtags-devel\\|libapt-front-devel\\)@lists\\.alioth\\.debian\\.org.*" "debtags") ;; (any ".*(LCFC\\|RFR).*" "debian-l10n-french") ;; (ml ".*Summer-Announce-2006@googlegroups\\.com.*" "soc-google-announce") ;; (ml "guilde-annonce@guilde\\.asso\\.fr" "guilde") ;; (ml "rafi@.*" "rafi") ;; (to ".*dsdebian@gmail\\.com.*" "gmail") ;; (ml "\\b\\(\\w+\\)@hurdfr\\.org" "hurdfr") ;; (ml "\\b\\([-0-9a-zA-Z_]+\\)@gnu\\.org" "\\1") ;; (ml "l4ka@.*" "l4ka") ;; (ml ".*turbogears@googlegroups\\.com.*" "turbogears") ;; (ml "association@tarentux\\.org" "tarentux") ;; (ml "linux-thinkpad@linux-thinkpad\\.org" "thinkpad") ;; (ml ".*andesi@andesi\\.org" "andesi") ;; (ml ".*soc-coordination@lists\\.alioth\\.debian\\.org.*" "soc-coordination") ;; (ml ".*sqlobject-discuss@lists\\.sourceforge\\.net.*" "sqlobject") ;; (from "infos@topachat\\.com" "spam") ;; (to ".*\\(root\\|admin\\).*" "velma") ;; "inbox")) ;; (require 'browse-url) ;; (defun browse-nnrss-url( arg ) ;; (interactive "p") ;; (let ((url (assq nnrss-url-field ;; (mail-header-extra ;; (gnus-data-header ;; (assq (gnus-summary-article-number) ;; gnus-newsgroup-data)))))) ;; (if url ;; (progn ;; (browse-url (cdr url)) ;; (gnus-summary-mark-as-read-forward 1)) ;; (gnus-summary-scroll-up arg)))) ;; (eval-after-load "gnus" ;; #'(define-key gnus-summary-mode-map ;; (kbd "") 'browse-nnrss-url)) ;; (add-to-list 'nnmail-extra-headers nnrss-url-field) (message "gnus: GETTING MAILS settings initialized") ;;**************************************** ;; MIME Settings * ;;**************************************** (require 'mm-util) (defun mm-read-charset (prompt) "Return a charset." 'iso-8859-15) (setq gnus-default-posting-charset (quote iso-8859-15)) (setq gnus-article-decode-mime-words t) (setq gnus-article-decode-charset 1) (setq gnus-ignored-mime-types '("text/x-vcard")) (setq gnus-unbuttonized-mime-types nil) (setq ;; Add buttons gnus-treat-buttonize t ;; Add buttons to the head gnus-treat-buttonize-head 'head ;; Emphasize text gnus-treat-emphasize t ;; Fill the article gnus-treat-fill-article nil ;; Remove carriage returns gnus-treat-strip-cr 'last ;; Hide headers gnus-treat-hide-headers 'head ;; Hide boring headers gnus-treat-hide-boring-headers 'head ;; Hide the signature gnus-treat-hide-signature nil ;; Hide cited text gnus-treat-hide-citation nil ;; Strip PGP signatures ;; gnus-treat-strip-pgp 'last ;; Strip PEM signatures gnus-treat-strip-pem 'last ;; Highlight the headers gnus-treat-highlight-headers 'head ;; Highlight cited text gnus-treat-highlight-citation 'last ;; Highlight the signature gnus-treat-highlight-signature 'last ;; Display the Date in UT (GMT) gnus-treat-date-ut nil ;; Display the Date in the local timezone gnus-treat-date-local nil ;; Display the date in the original timezone gnus-treat-date-original nil ;; Strip trailing blank lines gnus-treat-strip-trailing-blank-lines 'last ;; Strip leading blank lines gnus-treat-strip-leading-blank-lines 'last ;; Strip multiple blank lines gnus-treat-strip-multiple-blank-lines 'last ;; Strip all blank lines ;; gnus-treat-strip-blank-lines nil ;; Treat overstrike highlighting gnus-treat-overstrike 'last ) ;;* show the text/plain part before the text/html part in multpart/alternative (require 'mm-decode) ;; In order to read pdf files in text format (``xpdf-utils'' needed) (add-to-list 'auto-mode-alist '("\\.pdf\\'" . no-pdf)) (defun no-pdf () "Run pdftotext on the entire buffer." (interactive) (let ((modified (buffer-modified-p))) (erase-buffer) (shell-command (concat "pdftotext " (buffer-file-name) " -") (current-buffer) t) (set-buffer-modified-p modified))) (add-to-list 'mm-inlined-types "application/pdf") (add-to-list 'mm-inline-media-tests '("application/pdf" inline-no-pdf identity)) (defun inline-no-pdf (handle) "Insert pdf attachment described in HANDLE into article bufffer." (let ((file (mm-make-temp-file "pdf."))) (mm-with-unibyte-buffer (mm-insert-part handle) (write-file file)) (insert (shell-command-to-string (concat "pdftotext " file " -")))) (goto-char (point-max)) (mm-handle-set-undisplayer handle `(lambda () (let (buffer-read-only) (delete-region ,(point-min-marker) ,(point-max-marker)))))) (message "gnus: MIME settings initialized") ;;**************************************** ;; ARCHIVES: one file per month * ;;**************************************** (setq gnus-message-archive-group "INBOX.Sent") ;;(setq gnus-message-archive-group ;; '((if (message-news-p) ;; "misc-news" ;; (concat "mail." (format-time-string ;; "%Y-%m" (current-time))))) ;; ) (message "gnus: ARCHIVES settings initialized") ;;**************************************** ;; INTERFACE settings * ;;**************************************** ;; Here I define how to display subject lines etc... ;; I wanna see thoses groups everytime (setq gnus-permanently-visible-groups ".*") ;; I wanna be able to access my previous post (setq gnus-fetch-old-headers t) ;; I wanna keep track of the last time I rode a group (add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp) ;; *Group* buffer: how to format each group entry. (setq gnus-group-line-format "%M%m %4N/%4t non-lus: %(%-50,50G%) depuis le %2,2~(cut 6)d/%2,2~(cut 4)d a %2,2~(cut 9)dh%2,2~(cut 11)d\n" ;; gnus-group-line-format "Depuis le %-5,2~(cut 2)d/%2,2~(cut 2)d a %2,2~(cut 2)dh%2,2~(cut 11)d %M%m %4N/%4t non-lus:%(%-10,60G%)\n" ;; Pour le *Summary* gnus-summary-line-format "%U%R%z %6d %(%[%-14,14n%]%) (%3L): %B %(%>%>%-55,55s%)\n" gnus-summary-same-subject "%B->" ;; Pour *Topic* gnus-topic-line-format "%i%(%[%{ %n -- %A %}%]%)%v\n" gnus-article-mode-line-format "%5,60S" ) (eval-after-load "gnus-sum" '(add-to-list 'gnus-newsgroup-variables '(mm-discouraged-alternatives . '("text/html" "image/.*" "text/richtext")))) (add-to-list 'gnus-parameters '("\\`nnrss:" (mm-discouraged-alternatives nil))) ;; I do not like graphics smileys. (setq gnus-treat-display-smileys nil) ;; I wanna particular dimensions while reading mails (setq gnus-build-sparse-threads 'some gnus-use-trees t gnus-generate-tree-function 'gnus-generate-horizontal-tree gnus-tree-minimize-window nil) (if (or (not (getenv "DISPLAY")) (string-match ":0" (getenv "DISPLAY"))) (progn (gnus-add-configuration '(article (vertical 1.0 (summary 0.40 point) (article 1.0) ) ))) (progn (gnus-add-configuration '(article (vertical 1.0 (summary 0.40 point) (article 1.0) ) ))) ) (setq font-lock-maximum-decoration t font-lock-maximum-size nil) (require 'font-lock) (set-face-foreground 'gnus-summary-normal-ticked-face "pale violet red") (set-face-foreground 'gnus-summary-high-ticked-face "pale violet red") (setq gnus-thread-hide-subtree t) (setq gnus-mime-view-all-parts t) (setq gnus-visible-headers nil) (setq gnus-ignored-headers "^References:\\|^Xref:\\|Received:\\|^Message-ID\\|^Content-Type:\\|^Lines:\\|^X-From\\|^MIME-Version:\\|^MBOX-Line\\|^Precedence\\|^Priority:\\|^Content-Transfer\\|^In-Reply-To:\\|^NNTP-Posting-Host:\\|^Path:\\|^X-MIME\\|^Resent-\\|^Return\\|^X-Pgp\\|^X400\\|^Status\\|X-Trace\\|X-Complaints-To\\|NNTP-Posting-Date\\|X-Gnus-Mail-Source\\|^X-Received\\|^X-Authentication-Warning\\|^Comments\\^X-Sender\\|^X-Newsreader\\|^X-modappbot\\|^X-Accept-Language\\|^X-Original-Received\\|^Delivered-To\\|^X-Priority\\|^X-MSMail\\|^Mailing-List\\|^X-eGroups\\|^X-Sender:\\|^X-Apparently-To:\\|^Sender\\|^Lines\\|^X-Sequence:\\|^X-Loop:\\|^X-Disclaimer\\|^Mail-Folloup-To:\\|^Content-Disposition:\\|^X-comments\\|^X-authenticated\\|^List-\\|^X-DSPAM") (setq gnus-verbose 2000) (setq nnmail-treat-duplicates 'delete) (setq gnus-treat-highlight-signature 'last) (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) (setq gnus-summary-gather-subject-limit 'fuzzy) (setq gnus-asynchronous t) (message "gnus: INTERFACE settings initialized") ;;**************************************** ;; REPLY settings ;;**************************************** (add-hook 'message-mode-hook (lambda () (setq fill-column 72) (turn-on-auto-fill))) ;;(add-hook 'message-mode-hook (lambda () (flyspell-mode 1))) (require 'supercite) (defun random-string (len) (let ((res "")) (dotimes (i len) (setq res (concat res (format "%c" (+ 33 (random 93)) ) ) ) ) res) ) (autoload 'sc-cite-original "supercite" "Supercite 3.1" t) (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t) (add-hook 'mail-citation-hook 'sc-cite-original) ;; Do not insert the original author's signature when citing with supercite (add-hook 'sc-pre-hook (lambda () (save-excursion (let ((start (point)) (end (mark t))) (goto-char end) (when (re-search-backward "^-- $" start t) (forward-line -1) (while (looking-at "[ \t]*$") (forward-line -1)) (forward-line 1) (delete-region (point) end)))))) (defadvice gnus-summary-reply (around reply-in-news activate) "Ask for correct replying." (interactive) (when (or (not (gnus-news-group-p gnus-newsgroup-name)) (y-or-n-p "Voulez-vous vraiment répondre à l'auteur ? ")) ad-do-it)) (message "gnus.el: REPLY settings initialized") ;; Pour différentes « identitées », à changer avec C-u 1 m ;; (defun sig-andesi () ;; (let ((fill-column 72)) ;; (with-temp-buffer ;; (insert (shell-command-to-string "sh ~/.signature/andesi.sign.sh")) ;; (goto-char (point-min)) ;; (fill-paragraph t) ;; (buffer-string)))) ;; (defun sig-tarentux () ;; (let ((fill-column 72)) ;; (with-temp-buffer ;; (insert (shell-command-to-string "sh ~/.signature/tarentux.sign.sh")) ;; (goto-char (point-min)) ;; (fill-paragraph t) ;; (buffer-string)))) ;; (defun sig-free () ;; (let ((fill-column 72)) ;; (with-temp-buffer ;; (insert (shell-command-to-string "sh ~/.signature/dsdebian.sign.sh")) ;; (goto-char (point-min)) ;; (fill-paragraph t) ;; (buffer-string)))) ;; (defun sig-milkypond () ;; (let ((fill-column 72)) ;; (with-temp-buffer ;; (insert (shell-command-to-string "sh ~/.signature/milkypond.sign.sh")) ;; (goto-char (point-min)) ;; (fill-paragraph t) ;; (buffer-string)))) ;; Et enfin les headers et signature des mails en fonction de ;; l'identité ;; (setq gnus-posting-styles ;; '( ;; ;; Par défaut ;; ("nnml:.*" ;; (From (save-excursion ;; (set-buffer gnus-article-buffer) ;; (message-fetch-field "to")))) ;; (".*" ;; (signature (sig-milkypond)) ;; (name "Arnaud Fontaine") ;; (address "arnaud@milkypond.org") ;; ("X-Operating-System" "Debian GNU/Linux") ;; ("X-Mailer" (gnus-extended-version)) ;; ("X-GnuPG-KeyID" "5E3619D3") ;; ("X-PGP-Fingerprint" "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3\nMail-Copies-To: nobody")) ;; ("(debian\\|andesi).*" ;; (signature (sig-andesi)) ;; (name "Arnaud Fontaine") ;; (address "arnaud@andesi.org")) ;; ("(hurd\\|hug).*" ;; (signature (sig-andesi)) ;; (name "Arnaud Fontaine") ;; (address "arnaud@hurdfr.org")) ;; ("tarentux" ;; (signature (sig-tarentux)) ;; (name "Arnaud Fontaine") ;; (address "arnaud@tarentux.org")) ;; ("free" ;; (signature (sig-free)) ;; (name "Arnaud Fontaine") ;; (address "dsdebian@free.fr")) ;; ("15gr" ;; (signature (sig-free)) ;; (name "Arnaud Fontaine") ;; (address "15gr@free.fr") ;; ))) (require 'gnus-alias) (gnus-alias-init) (define-key message-mode-map (kbd "C-c p") 'gnus-alias-select-identity) (add-hook 'message-load-hook 'gnus-alias-select-identity) (setq gnus-alias-verbosity 9 gnus-alias-point-position 'empty-header-or-body gnus-alias-default-identity "andesi" gnus-alias-unknown-identity-rule 'andesi gnus-alias-overlay-identities nil ) ;; ("X-Operating-System" "Debian GNU/Linux") ;; ("X-Mailer" (gnus-extended-version)) ;; ("X-GnuPG-KeyID" "5E3619D3") ;; ("X-PGP-Fingerprint" "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3\nMail-Copies-To: nobody")) (setq gnus-alias-identity-alist '( ("milkypond" nil "Arnaud Fontaine " "Milkypond" ( ("X-URL" . "http://www.mini-dweeb.org") ("X-Operating-System" . "Debian GNU/Linux") ("X-GnuPG-KeyID" . "5E3619D3") ("X-PGP-Fingerprint" . "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3") ) nil nil ;; "~/.sign_milkypond" ) ("andesi" nil "Arnaud Fontaine " "Andesi" ( ("X-URL" . "http://www.andesi.org") ("X-Operating-System" . "Debian GNU/Linux") ("X-GnuPG-KeyID" . "5E3619D3") ("X-PGP-Fingerprint" . "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3") ) nil nil ) ("free" nil "Arnaud Fontaine " nil ( ("X-URL" . "http://www.mini-dweeb.org.org") ("X-Operating-System" . "Debian GNU/Linux") ("X-GnuPG-KeyID" . "5E3619D3") ("X-PGP-Fingerprint" . "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3") ) nil nil ) ("tarentux" nil "Arnaud Fontaine " "Tarentux" ( ("X-URL" . "http://www.tarentux.org") ("X-Operating-System" . "Debian GNU/Linux") ("X-GnuPG-KeyID" . "5E3619D3") ("X-PGP-Fingerprint" . "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3") ) nil nil ) ("duckcorp" nil "Arnaud Fontaine " "Duckcorp" ( ("X-URL" . "https://www.duckcorp.org") ("X-Operating-System" . "Debian GNU/Linux") ("X-GnuPG-KeyID" . "5E3619D3") ("X-PGP-Fingerprint" . "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3") ) nil nil ) ("hurdfr" nil "Arnaud Fontaine " "HurdFR" ( ("X-URL" . "http://www.hurdfr.org") ("X-Operating-System" . "Debian GNU/Linux") ("X-GnuPG-KeyID" . "5E3619D3") ("X-PGP-Fingerprint" . "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3") ) nil ) ("dweeb" nil "Arnaud Fontaine " "HurdFR" ( ("X-URL" . "http://www.mini-dweeb.org") ("X-Operating-System" . "Debian GNU/Linux") ("X-GnuPG-KeyID" . "5E3619D3") ("X-PGP-Fingerprint" . "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3") ) nil nil ) ("hurdfr_secretaire" nil "Secretaire de HurdFr " "HurdFr" ( ("X-URL" . "http://www.hurdfr.org") ("X-Operating-System" . "Debian GNU/Linux") ("X-GnuPG-KeyID" . "5E3619D3") ("X-PGP-Fingerprint" . "D792 B8A5 A567 B001 C342 2613 BDF2 A220 5E36 19D3") ) nil nil ) )) (setq gnus-alias-identity-rules '( ("Milkypond all" ("any" ".*arnaud@milkypond.org.*" both) "milkypond") ("Tarentux all" ("any" ".*\\(arnaud\\|association\\)@tarentux.org.*" both) "tarentux") ("HurdFr all" ("any" ".*arnau@hurdfr.org.*" both) "hurdfr") ("Free all" ("any" ".*dsdebian@free.fr.*" both) "free") ("Dweeb all" ("any" ".*arnaud@mini-dweeb.org.*" both) "dweeb") ("Andesi all" ("any" ".*\\(arnaud\\|andesi\\)@andesi.org.*" both) "andesi") )) (message "gnus: IDENTITIES settings initialized") (message "gnus: All done !") ;; (gnus-compile)