From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/58585 Path: main.gmane.org!not-for-mail From: Torsten Hilbrich Newsgroups: gmane.emacs.gnus.general Subject: Bug: Initialisation of nnimap incomplete when using compose-mail Date: Sat, 25 Sep 2004 21:50:58 +0200 Sender: ding-owner@lists.math.uh.edu Message-ID: <87wtyiktzx.fsf@myrkr.in-berlin.de> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1096141918 11876 80.91.229.6 (25 Sep 2004 19:51:58 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 25 Sep 2004 19:51:58 +0000 (UTC) Original-X-From: ding-owner+M7123@lists.math.uh.edu Sat Sep 25 21:51:44 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CBIa7-0002vC-00 for ; Sat, 25 Sep 2004 21:51:43 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1CBIZm-0002CY-00; Sat, 25 Sep 2004 14:51:22 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CBIZb-0002CS-00 for ding@lists.math.uh.edu; Sat, 25 Sep 2004 14:51:11 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1CBIZc-0007pw-2g for ding@lists.math.uh.edu; Sat, 25 Sep 2004 14:51:12 -0500 Original-Received: from einhorn.in-berlin.de (einhorn.in-berlin.de [192.109.42.8]) by justine.libertine.org (Postfix) with ESMTP id 3F3463A0038 for ; Sat, 25 Sep 2004 14:51:08 -0500 (CDT) X-Envelope-From: news@myrkr.in-berlin.de X-Envelope-To: Original-Received: from myrkr.in-berlin.de ([83.169.157.122]) (authenticated bits=0) by einhorn.in-berlin.de (8.12.10/8.12.10/Debian-4) with ESMTP id i8PJowic019219 (version=TLSv1/SSLv3 cipher=RC4-SHA bits=128 verify=NOT) for ; Sat, 25 Sep 2004 21:50:58 +0200 Original-Received: from news by myrkr.in-berlin.de with local (Exim 4.34 #1 (Debian)) id 1CBIZO-0004x2-AM for ; Sat, 25 Sep 2004 21:50:58 +0200 Original-To: ding@gnus.org Original-Lines: 820 Original-X-Trace: myrkr.in-berlin.de 1096141858 18236 127.0.0.1 (25 Sep 2004 19:50:58 GMT) Original-X-Complaints-To: usenet@myrkr.in-berlin.de Original-NNTP-Posting-Date: Sat, 25 Sep 2004 19:50:58 +0000 (UTC) X-Face: &h3VJ.Wf$"FwQv&ybX66{lt4*Mo%#kP6^"eU?7~UHhgF6l7)UB0f~g'}64W-b{tK1Jyh)^! %sc(cpH%Yv}bh"VwaJ>>!Kv*k4EJn^Lt[X|f< User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:fzS2gb5rILrh6WvHc4QdpbP5yjE= X-Scanned-By: MIMEDefang 2.43 Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:58585 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:58585 --=-=-= No Gnus v0.3 GNU Emacs 21.3.1 (i386-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 2004-04-07 on raven, modified by Debian 200 myrkr.in-berlin.de InterNetNews server INN 2.4.2 (20040403 prerelease) ready I think I found a bug in the current gnus/nnimap code regarding the initialisation when using the compose-mail command. I did this test against the lasted CVS version of gnus as well as an earlier version (the version I'm currently using writing this report). *Setup* Here is my setup. The .emacs.d/init.el contains the following code to specify gnus for reading and writing mail: (setq mail-user-agent 'gnus-user-agent) (setq read-mail-command 'gnus) Here are some additional statements from the same file that might be related: (setq read-mail-command 'gnus) (autoload 'gnus-agent-possibly-save-gcc "gnus-agent") The .gnus file contains the following lines to specify the destination folder for archiving, sitting on my local IMAP server (cyrus imapd 2.1.x): (setq gnus-message-archive-group '((if (message-news-p) "nnimap+IMAP:Archiv/Sent-News" "nnimap+IMAP:Archiv/Sent-Mails"))) Here is the namespace setup of the IMAP server: * NAMESPACE (("" "/")) (("Other Users/" "/")) (("Shared Folders/" "/")) The archive method is given with the according "Gcc: nnimap+IMAP:Archiv/Sent-Mails" pseudo header during message composition. Here is my setup for the IMAP server: (setq gnus-secondary-select-methods '((nnml "") (nnimap "IMAP" (nnimap-address "localhost")))) The .authinfo file has the following contents (password replaced by xxx): machine localhost port imap login torsten password xxx *The bug* If I start gnus manually using M-x gnus before composing the mail everything works perfectly. However, running C-x m (compose-mail) before starting gnus results in the problem described in the following paragraphs. >From the user POV gnus asks me about my username and password. Here is the part of *Messages* describing these inputs: Opening nnimap server on IMAP... imap: Connecting to IMAP... Waiting for response from IMAP...done imap: Connecting to IMAP...done imap: Authenticating to `IMAP' using `login'... imap: Plaintext authentication... IMAP password for torsten@IMAP (using authenticator `login'): Login failed... Quit trying to open server Quit gnus-check-server Opening nnimap server on IMAP...failed I had to press C-g here to abort gnus. Maybe you noticed, the server nnimap wants to connect to is "IMAP" instead of the expected "localhost". So it seems that the gnus-secondary-select-method is not honoured in that situation. I set debug-on-quit and debug-on-error to t and got this backtrace: Debugger entered--Lisp error: (error "Can't open server nnimap") signal(error ("Can't open server nnimap")) error("Can't open server %s" nnimap) gnus-inews-do-gcc() gnus-agent-possibly-do-gcc() run-hooks(message-sent-hook) message-send(nil) message-send-and-exit(nil) call-interactively(message-send-and-exit) I set the variabled imap-log and imap-debug to t and got the following output of nnimap trying to connect to my providers IMAP server (the one sitting behind the local imap address): * OK Messaging Multiplexor (iPlanet Messaging Server 5.2 HotFix 1.12 (built Feb 13 2003)) 1 CAPABILITY * CAPABILITY IMAP4 IMAP4rev1 ACL QUOTA LITERAL+ NAMESPACE UIDPLUS CHILDREN LANGUAGE XSENDER X-NETSCAPE XSERVERINFO AUTH=PLAIN 1 OK CAPABILITY completed 2 CAPABILITY * CAPABILITY IMAP4 IMAP4rev1 ACL QUOTA LITERAL+ NAMESPACE UIDPLUS CHILDREN LANGUAGE XSENDER X-NETSCAPE XSERVERINFO AUTH=PLAIN 2 OK CAPABILITY completed The strange thing is, nnimap also accesses the local (correct) IMAP server during the end-less loop I aborted with C-g. Here is a transcript of this session (the whole sequence is repeated ad infinitum): A000 LOGIN torsten xxx A000 OK A001 EXAMINE Mail * FLAGS (\Answered \Flagged \Draft \Deleted \Seen gnus-forward gnus-expire gnus-save) A002 CHECK A002 OK A003 SEARCH UNSEEN SEARCH 3337 3338 3339 A004 LOGOUT BYE LOGOUT received The folder "Mail" is my primary mail folder where new mail is expected to appear. nnimap didn't try to save the message at all to my local IMAP server. *Workaround* I found the following code to work around the problem, obviously by calling gnus at least once before composing new mail: (defadvice compose-mail (before nnimap-fix activate) (unless (gnus-alive-p) (gnus))) Information about Emacs and gnus are appended to this message. Torsten --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Description: User settings ------------------ Environment follows ------------------ (setq gnus-default-nntp-server "") (setq gnus-nntpserver-file "/etc/news/server") (setq gnus-message-archive-method '(nnml "")) (setq gnus-message-archive-group '((if (message-news-p) "nnimap+IMAP:Archiv/Sent-News" "nnimap+IMAP:Archiv/Sent-Mails"))) (setq gnus-secondary-select-methods '((nnml "") (nnimap "IMAP" (nnimap-address "localhost")))) (setq gnus-refer-article-method '(current (nnweb "refer" (nnweb-type dejanews)))) (setq gnus-group-faq-directory '("/ftp@mirrors.aol.com:/pub/rtfm/usenet/" "/ftp@sunsite.doc.ic.ac.uk= :/pub/usenet/news-faqs/" "/ftp@src.doc.ic.ac.uk:/usenet/news-FAQS/" "/ftp@f= tp.seas.gwu.edu:/pub/rtfm/" "/ftp@ftp.pasteur.fr:/pub/FAQ/" "/ftp@rtfm.mit.= edu:/pub/usenet/" "/ftp@ftp.uni-paderborn.de:/pub/FAQ/" "/ftp@ftp.sunet.se:= /pub/usenet/" "/ftp@nctuccca.nctu.edu.tw:/pub/Documents/rtfm/usenet-by-grou= p/" "/ftp@hwarang.postech.ac.kr:/pub/usenet/" "/ftp@ftp.hk.super.net:/mirro= r/faqs/")) (setq gnus-large-newsgroup 400) ;; (makeunbound 'gnus-use-grouplens) (setq gnus-keep-backlog 20) ;; (makeunbound 'gnus-use-picons) (setq gnus-summary-prepare-exit-hook '(spam-summary-prepare-exit gnus-summary-expire-articles)) (setq gnus-valid-select-methods '(("nntp" post address prompt-address physical-address) ("nnspool" post address) ("nnvirtual" post-mail virtual prompt-address) ("nnmbox" mail respool address) ("nnml" post-mail respool address) ("nnmh" mail respool address) ("nndir" post-mail prompt-address physical-address) ("nneething" none address prompt-address physical-address) ("nndoc" none address prompt-address) ("nnbabyl" mail address respool) ("nnkiboze" post virtual) ("nnsoup" post-mail address) ("nndraft" post-mail) ("nnfolder" mail respool address) ("nngateway" post-mail address prompt-address physical-address) ("nnweb" none) ("nngoogle" post) ("nnslashdot" post) ("nnultimate" none) ("nnrss" none) ("nnwfm" none) ("nnwarchive" none) ("nnlistserv" none) ("nnagent" post-mail) ("nnimap" post-mail address prompt-address physical-address) ("nnmaildir" mail respool address) ("nnnil" none) ("nnir" mail))) (setq gnus-group-change-level-function 'gnus-topic-change-level) (setq gnus-visual '(summary-highlight group-highlight article-highlight mouse-face summ= ary-menu group-menu article-menu tree-highlight menu highlight browse-menu = server-menu page-marker tree-menu binary-menu pick-menu)) (setq gnus-default-charset 'undecided) ;; (makeunbound 'gnus-default-posting-charset) (setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-refere= nces) (setq gnus-thread-hide-subtree t) (setq gnus-thread-indent-level 2) (setq gnus-auto-select-next 'quietly) (setq gnus-auto-center-summary nil) (setq gnus-single-article-buffer nil) (setq gnus-undownloaded-mark 45) (setq gnus-view-pseudo-asynchronously t) (setq gnus-summary-dummy-line-format " %(: :%= ) %S\n") (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number gnus-thread-sort-by-score)) (setq gnus-summary-mode-hook '(gnus-agent-mode mc-install-read-mode)) (setq gnus-summary-prepare-hook '(spam-summary-prepare)) (setq gnus-summary-prepared-hook '(spam-find-spam)) (setq gnus-exit-group-hook '(gnus-uu-delete-work-dir gnus-uu-clean-up)) (setq gnus-ps-print-hook '((lambda nil (setq ps-left-header (list (concat "(" (mail-header-subject gnus-current-headers) ")") (concat "(" (mail-header-from gnus-current-headers) ")")))))) (setq gnus-summary-highlight '(((eq mark gnus-spam-mark) . spam-face) ((eq mark gnus-canceled-mark) . gnus-summary-cancelled-face) ((and uncached (> score default-high)) . gnus-summary-high-undownloaded-face) ((and uncached (< score default-low)) . gnus-summary-low-undownloaded-face) (uncached . gnus-summary-normal-undownloaded-face) ((and (> score default-high) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-high-ticked-face) ((and (< score default-low) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . gnus-summary-low-ticked-face) ((or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark)) . gnus-summary-normal-ticked-face) ((and (> score default-high) (eq mark gnus-ancient-mark)) . gnus-summary-high-ancient-face) ((and (< score default-low) (eq mark gnus-ancient-mark)) . gnus-summary-low-ancient-face) ((eq mark gnus-ancient-mark) . gnus-summary-normal-ancient-face) ((and (> score default-high) (eq mark gnus-unread-mark)) . gnus-summary-high-unread-face) ((and (< score default-low) (eq mark gnus-unread-mark)) . gnus-summary-low-unread-face) ((eq mark gnus-unread-mark) . gnus-summary-normal-unread-face) ((> score default-high) . gnus-summary-high-read-face) ((< score default-low) . gnus-summary-low-read-face) (t . gnus-summary-normal-read-face))) (setq gnus-extra-headers '(To Newsgroups)) (setq gnus-ignored-from-addresses "\\(torsten@hilbrich.net\\|Torsten\\.Hilb= rich@gmx\\.net\\|.*@myrkr.in-berlin.de\\)") (setq gnus-group-charset-alist '(("\\(^\\|:\\)hk\\>\\|\\(^\\|:\\)tw\\>\\|\\" cn-big5) ("\\(^\\|:\\)cn\\>\\|\\" cn-gb-2312) ("\\(^\\|:\\)fj\\>\\|\\(^\\|:\\)japan\\>" iso-2022-jp-2) ("\\(^\\|:\\)tnn\\>\\|\\(^\\|:\\)pin\\>\\|\\(^\\|:\\)sci.lang.japan" iso-2= 022-7bit) ("\\(^\\|:\\)relcom\\>" koi8-r) ("\\(^\\|:\\)fido7\\>" koi8-r) ("\\(^\\|:\\)\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2) ("\\(^\\|:\\)israel\\>" iso-8859-1) ("\\(^\\|:\\)han\\>" euc-kr) ("\\(^\\|:\\)alt.chinese.text.big5\\>" chinese-big5) ("\\(^\\|:\\)soc.culture.vietnamese\\>" vietnamese-viqr) ("\\(^\\|:\\)\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" is= o-8859-1))) (setq gnus-group-archive-directory "/ftp@ftp.hpc.uh.edu:/pub/emacs/ding-lis= t/") (setq gnus-group-recent-archive-directory "/ftp@ftp.hpc.uh.edu:/pub/emacs/d= ing-list-recent/") (setq gnus-no-groups-message "No Gnus is good news") (setq gnus-group-line-format "%P%M%S%5y %(%G%) (Total: %t)\n") (setq gnus-group-mode-hook '(gnus-agent-mode nnir-group-mode-hook gnus-topic-mode)) (setq gnus-group-catchup-group-hook '(gnus-topic-update-topic)) (setq gnus-exit-gnus-hook '(mm-destroy-postponed-undisplay-list)) (setq gnus-group-highlight '(((and mailp (not (zerop unread))) . kai-gnus-group-nonempty-mail-face) (mailp . kai-gnus-group-mail-face) ((and (zerop unread) (not (zerop ticked))) . kai-gnus-group-starred-face))) (setq gnus-group-name-charset-group-alist '((".*" . utf-8))) (setq gnus-ignored-headers '("^Path:" "^Expires:" "^Date-Received:" "^References:" "^Xref:" "^Li= nes:" "^Relay-Version:" "^Message-ID:" "^Approved:" "^Sender:" "^Received:"= "^X-UIDL:" "^MIME-Version:" "^Return-Path:" "^In-Reply-To:" "^Content-Type= :" "^Content-Transfer-Encoding:" "^X-WebTV-Signature:" "^X-MimeOLE:" "^X-MS= Mail-Priority:" "^X-Priority:" "^X-Loop:" "^X-Authentication-Warning:" "^X-= MIME-Autoconverted:" "^X-Face:" "^X-Attribution:" "^X-Originating-IP:" "^De= livered-To:" "^NNTP-[-A-Za-z]+:" "^Distribution:" "^X-no-archive:" "^X-Trac= e:" "^X-Complaints-To:" "^X-NNTP-Posting-Host:" "^X-Orig.*:" "^Abuse-Report= s-To:" "^Cache-Post-Path:" "^X-Article-Creation-Date:" "^X-Poster:" "^X-Mai= l2News-Path:" "^X-Server-Date:" "^X-Cache:" "^Originator:" "^X-Problems-To:= " "^X-Auth-User:" "^X-Post-Time:" "^X-Admin:" "^X-UID:" "^Resent-[-A-Za-z]+= :" "^X-Mailing-List:" "^Precedence:" "^Original-[-A-Za-z]+:" "^X-filename:"= "^X-Orcpt:" "^Old-Received:" "^X-Pgp:" "^X-Auth:" "^X-From-Line:" "^X-Gnus= -Article-Number:" "^X-Majordomo:" "^X-Url:" "^X-Sender:" "^MBOX-Line:" "^Pr= iority:" "^X400-[-A-Za-z]+:" "^Status:" "^X-Gnus-Mail-Source:" "^Cancel-Loc= k:" "^X-FTN:" "^X-EXP32-SerialNo:" "^Encoding:" "^Importance:" "^Autoforwar= ded:" "^Original-Encoded-Information-Types:" "^X-Ya-Pop3:" "^X-Face-Version= :" "^X-Vms-To:" "^X-ML-NAME:" "^X-ML-COUNT:" "^Mailing-List:" "^X-finfo:" "= ^X-md5sum:" "^X-md5sum-Origin:" "^X-Sun-Charset:" "^X-Accept-Language:" "^X= -Envelope-Sender:" "^List-[A-Za-z]+:" "^X-Listprocessor-Version:" "^X-Recei= ved:" "^X-Distribute:" "^X-Sequence:" "^X-Juno-Line-Breaks:" "^X-Notes-Item= :" "^X-MS-TNEF-Correlator:" "^x-uunet-gateway:" "^X-Received:" "^Content-le= ngth:" "^X-precedence:" "^X-Authenticated-User:" "^X-Comment:" "^X-Report:"= "^X-Abuse-Info:" "^X-HTTP-Proxy:" "^X-Mydeja-Info:" "^X-Copyright:" "^X-No= -Markup:" "^X-Abuse-Info:" "^X-From_:" "^X-Accept-Language:" "^Errors-To:" = "^X-BeenThere:" "^X-Mailman-Version:" "^List-Help:" "^List-Post:" "^List-Su= bscribe:" "^List-Id:" "^List-Unsubscribe:" "^List-Archive:" "^X-Content-len= gth:" "^X-Posting-Agent:" "^Original-Received:" "^X-Request-PGP:" "^X-Finge= rprint:" "^X-WRIEnvto:" "^X-WRIEnvfrom:" "^X-Virus-Scanned:" "^X-Delivery-A= gent:" "^Posted-Date:" "^X-Gateway:" "^X-Local-Origin:" "^X-Local-Destinati= on:" "^X-UserInfo1:" "^X-Received-Date:" "^X-Hashcash:" "^Face:" "^X-DMCA-N= otifications:" "^X-Abuse-and-DMCA-Info:" "^X-Postfilter:" "^X-Gpg-.*:" "^X-= Disclaimer:")) (setq gnus-visible-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^F= ollowup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\= |^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Appare= ntly-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^X-Sent:") (setq gnus-article-x-face-command 'gnus-display-x-face-in-from) (setq gnus-article-x-face-too-ugly "Torsten Hilbrich") (setq gnus-emphasis-alist '(("\\(\\s-\\|^\\|\\=3D\\|[-\"]\\|\\s(\\)\\(\\*\\(\\w+\\(\\s-+\\w+\\)= *[.,]?\\)\\*\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\= )" 2 3 gnus-emphasis-bold) ("\\(\\s-\\|^\\|\\=3D\\|[-\"]\\|\\s(\\)\\(_\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)= _\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus= -emphasis-underline) ("\\(\\s-\\|^\\|\\=3D\\|[-\"]\\|\\s(\\)\\(/\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\)= /\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gnus= -emphasis-italic) ("\\(\\s-\\|^\\|\\=3D\\|[-\"]\\|\\s(\\)\\(_/\\(\\w+\\(\\s-+\\w+\\)*[.,]?\\= )/_\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 3 gn= us-emphasis-underline-italic) ("\\(\\s-\\|^\\|\\=3D\\|[-\"]\\|\\s(\\)\\(_\\*\\(\\w+\\(\\s-+\\w+\\)*[.,]?= \\)\\*_\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 = 3 gnus-emphasis-underline-bold) ("\\(\\s-\\|^\\|\\=3D\\|[-\"]\\|\\s(\\)\\(\\*/\\(\\w+\\(\\s-+\\w+\\)*[.,]?= \\)/\\*\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" 2 = 3 gnus-emphasis-bold-italic) ("\\(\\s-\\|^\\|\\=3D\\|[-\"]\\|\\s(\\)\\(_\\*/\\(\\w+\\(\\s-+\\w+\\)*[.,]= ?\\)/\\*_\\)\\(\\([-,.;:!?\"]\\|\\s)\\)+\\s-\\|[?!.]\\s-\\|\\s)\\|\\s-\\)" = 2 3 gnus-emphasis-underline-bold-italic) ("\\(\\s-\\|^\\)\\(_\\(\\(\\w\\|_[^_]\\)+\\)_\\)\\(\\s-\\|[?!.,;]\\)" 2 3 = gnus-emphasis-underline))) (setq gnus-article-time-format "%a, %d %b %Y %T %Z") (setq gnus-prompt-before-saving 'once) ;; (makeunbound 'gnus-article-hide-pgp-hook) (setq gnus-signature-face 'default) (setq gnus-header-face-alist '(("\\(from\\|to\\|cc\\|sender\\|reply-to\\):" bold bold) ("subject:" bold underline) ("gnus-warning:" font-lock-emphasized-face bold) ("date:" font-lock-comment-face font-lock-comment-face) ("x-.*:" font-lock-comment-face font-lock-comment-face))) (setq gnus-article-decode-hook '(article-decode-charset article-decode-encoded-words article-decode-= group-name article-decode-idna-rhs)) (setq gnus-article-dumbquotes-map '(("\200" "=CC") ("\202" "=FA") ("\203" "=D2") ("\204" "=FE") ("\205" "=A6") ("\206" "=A0") ("\207" "=A1") ("\210" "=E6") ("\211" "=B0") ("\212" "=A0") ("\213" "=B9") ("\214" "=F2") ("\216" "=BD") ("\221" "=F8") ("\222" "=F9") ("\223" "=FC") ("\224" "=FD") ("\225" "=A2") ("\226" "=F3") ("\227" "=F4") ("\230" "=FC") ("\231" "=E2") ("\232" "=A1") ("\233" "=BA") ("\234" "=F3") ("\236" "=BE") ("\237" "=B8"))) (setq gnus-mime-action-alist '(("save to file" . gnus-mime-save-part) ("save and strip" . gnus-mime-save-part-and-strip) ("delete part" . gnus-mime-delete-part) ("display as text" . gnus-mime-inline-part) ("view the part" . gnus-mime-view-part) ("pipe to command" . gnus-mime-pipe-part) ("toggle display" . gnus-article-press-button) ("toggle display" . gnus-article-view-part-as-charset) ("view as type" . gnus-mime-view-part-as-type) ("view internally" . gnus-mime-view-part-internally) ("view externally" . gnus-mime-view-part-externally))) (setq gnus-treat-highlight-signature '(or t (typep "text/x-vcard"))) (setq gnus-treat-hide-boring-headers 'head) ;; (makeunbound 'gnus-treat-strip-pgp) (setq gnus-treat-date-lapsed 'head) ;; (makeunbound 'gnus-treat-display-xface) ;; (makeunbound 'gnus-treat-display-picons) (setq gnus-save-killed-list nil) (setq gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"][]\"[#= '()]") (setq gnus-auto-subscribed-groups "^nnml\\|^nnfolder\\|^nnmbox\\|^nnmh\\|^n= nbabyl\\|^nnmaildir") (setq gnus-startup-hook '(spam-maybe-spam-stat-load)) (setq gnus-setup-news-hook '(gnus-agent-queue-setup gnus-fixup-nnimap-unread-after-getting-new-n= ews)) (setq gnus-get-new-news-hook '(spam-setup-widening)) (setq gnus-after-getting-new-news-hook '(gnus-display-time-event-handler gnus-fixup-nnimap-unread-after-gett= ing-new-news)) (setq gnus-save-newsrc-hook '(spam-maybe-spam-stat-save)) (setq gnus-posting-styles '(((message-news-p) (address "torsten.hilbrich@gmx.net")) ("^local.gnus.ding$" (address "gnus@myrkr.in-berlin.de")) ("TeX-Stammtisch" (address "lists@myrkr.in-berlin.de")) ((if (bufferp gnus-article-buffer) (let ((to-header (save-excursion (bufferp gnus-article-buffer) (set-buffer gnus-article-buffer) (message-fetch-field "to")))) (and to-header (string-match "@myrkr\\|torsten\\.hilbrich@gmx\\.net" to-header)))) (From (save-excursion (set-buffer gnus-article-buffer) (message-fetch-field "to")))))) (setq gnus-global-score-files '("~/News/all.SCORE")) (setq gnus-buffer-configuration '((group (vertical 1.0 (group 1.0 point) (if gnus-carpal '(group-carpal 4)))) (summary (vertical 1.0 (summary 1.0 point) (if gnus-carpal '(summary-carpal 4)))) (article (cond (gnus-use-trees '(vertical 1.0 (summary 0.25 point) (tree 0.25) (article 1.0))) (t '(vertical 1.0 (summary 0.25 point) (if gnus-carpal '(summary-carpal 4)) (article 1.0))))) (server (vertical 1.0 (server 1.0 point) (if gnus-carpal '(server-carpal 2)))) (browse (vertical 1.0 (browse 1.0 point) (if gnus-carpal '(browse-carpal 2)))) (message (vertical 1.0 (message 1.0 point))) (pick (vertical 1.0 (article 1.0 point))) (info (vertical 1.0 (info 1.0 point))) (summary-faq (vertical 1.0 (summary 0.25) (faq 1.0 point))) (edit-article (vertical 1.0 (article 1.0 point))) (edit-form (vertical 1.0 (group 0.5) (edit-form 1.0 point))) (edit-score (vertical 1.0 (summary 0.25) (edit-score 1.0 point))) (post (vertical 1.0 (post 1.0 point))) (reply (vertical 1.0 (article 0.5) (message 1.0 point))) (forward (vertical 1.0 (message 1.0 point))) (reply-yank (vertical 1.0 (message 1.0 point))) (mail-bounce (vertical 1.0 (article 0.5) (message 1.0 point))) (pipe (vertical 1.0 (summary 0.25 point) (if gnus-carpal '(summary-carpal 4)) ("*Shell Command Output*" 1.0))) (bug (vertical 1.0 (if gnus-bug-create-help-buffer '("*Gnus Help Bug*" 0.5)) ("*Gnus Bug*" 1.0 point))) (score-trace (vertical 1.0 (summary 0.5 point) ("*Score Trace*" 1.0))) (score-words (vertical 1.0 (summary 0.5 point) ("*Score Words*" 1.0))) (split-trace (vertical 1.0 (summary 0.5 point) ("*Split Trace*" 1.0))) (category (vertical 1.0 (category 1.0))) (compose-bounce (vertical 1.0 (article 0.5) (message 1.0 point))) (display-term (vertical 1.0 ("*display*" 1.0))))) (setq gnus-window-to-buffer '((group . gnus-group-buffer) (summary . gnus-summary-buffer) (article . gnus-article-buffer) (server . gnus-server-buffer) (browse . "*Gnus Browse Server*") (edit-group . gnus-group-edit-buffer) (edit-form . gnus-edit-form-buffer) (edit-server . gnus-server-edit-buffer) (group-carpal . gnus-carpal-group-buffer) (summary-carpal . gnus-carpal-summary-buffer) (server-carpal . gnus-carpal-server-buffer) (browse-carpal . gnus-carpal-browse-buffer) (edit-score . gnus-score-edit-buffer) (message . gnus-message-buffer) (mail . gnus-message-buffer) (post-news . gnus-message-buffer) (faq . gnus-faq-buffer) (tree . gnus-tree-buffer) (score-trace . "*Score Trace*") (split-trace . "*Split Trace*") (info . gnus-info-buffer) (category . gnus-category-buffer) (article-copy . gnus-article-copy) (draft . gnus-draft-buffer))) (setq gnus-topic-line-format "%i %(%{%n -- %A%}%)%v\n") (setq gnus-topic-display-empty-topics nil) (setq gnus-uncacheable-groups "^nnml") (setq gnus-server-mode-hook '(gnus-agent-mode)) (setq mm-charset-synonym-alist '((big5-hkscs . big5) (ks_c_5601-1987 . euc-kr))) (setq mm-coding-system-priorities '(iso-latin-1 iso-latin-9)) (setq mm-inline-media-tests '(("image/p?jpeg" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'jpeg handle))) ("image/png" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'png handle))) ("image/gif" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'gif handle))) ("image/tiff" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'tiff handle))) ("image/xbm" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'xbm handle))) ("image/x-xbitmap" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'xbm handle))) ("image/xpm" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'xpm handle))) ("image/x-xpixmap" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'xpm handle))) ("image/bmp" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'bmp handle))) ("image/x-portable-bitmap" mm-inline-image (lambda (handle) (mm-valid-and-fit-image-p 'pbm handle))) ("text/plain" mm-inline-text identity) ("text/enriched" mm-inline-text identity) ("text/richtext" mm-inline-text identity) ("text/x-patch" mm-display-patch-inline (lambda (handle) (locate-library "diff-mode"))) ("application/emacs-lisp" mm-display-elisp-inline identity) ("application/x-emacs-lisp" mm-display-elisp-inline identity) ("text/html" mm-inline-text-html (lambda (handle) (or mm-inline-text-html-renderer mm-text-html-renderer))) ("text/x-vcard" mm-inline-text-vcard (lambda (handle) (or (featurep 'vcard) (locate-library "vcard")))) ("message/delivery-status" mm-inline-text identity) ("message/rfc822" mm-inline-message identity) ("message/partial" mm-inline-partial identity) ("message/external-body" mm-inline-external-body identity) ("text/.*" mm-inline-text identity) ("audio/wav" mm-inline-audio (lambda (handle) (and (or (featurep 'nas-sound) (featurep 'native-sound)) (device-sound-enabled-p)))) ("audio/au" mm-inline-audio (lambda (handle) (and (or (featurep 'nas-sound) (featurep 'native-sound)) (device-sound-enabled-p)))) ("application/pgp-signature" ignore identity) ("application/x-pkcs7-signature" ignore identity) ("application/pkcs7-signature" ignore identity) ("application/x-pkcs7-mime" ignore identity) ("application/pkcs7-mime" ignore identity) ("multipart/alternative" ignore identity) ("multipart/mixed" ignore identity) ("multipart/related" ignore identity) ("audio/.*" ignore ignore) ("image/.*" ignore ignore) (".*" mm-inline-text mm-readable-p))) (setq mm-inlined-types '("image/.*" "text/.*" "message/delivery-status" "message/rfc822" "me= ssage/partial" "message/external-body" "application/emacs-lisp" "applicatio= n/pgp-signature" "application/x-pkcs7-signature" "application/pkcs7-signatu= re" "application/x-pkcs7-mime" "application/pkcs7-mime")) (setq mm-automatic-display '("text/plain" "text/enriched" "text/richtext" "text/html" "text/x-vc= ard" "image/.*" "message/delivery-status" "multipart/.*" "message/rfc822" "= text/x-patch" "application/pgp-signature" "application/emacs-lisp" "applica= tion/x-emacs-lisp" "application/x-pkcs7-signature" "application/pkcs7-signa= ture" "application/x-pkcs7-mime" "application/pkcs7-mime")) (setq mm-attachment-override-types '("text/x-vcard" "application/pkcs7-mime" "application/x-pkcs7-mime" = "application/pkcs7-signature" "application/x-pkcs7-signature")) (setq mm-discouraged-alternatives '("text/html")) (setq nnmail-split-methods 'nnmail-split-fancy) (setq nnmail-crosspost nil) (setq nnmail-expiry-wait 14) (setq nnmail-treat-duplicates 'delete) (setq nnmail-extra-headers '(To Newsgroups)) (setq message-courtesy-message "Mailed and posted \n") (setq message-ignored-bounced-headers "^\\(Received\\|Return-Path\\|Deliver= ed-To\\):") (setq message-syntax-checks '((sender . disabled))) (setq message-required-news-headers '((X-Face . x-face-contents) From Newsgroups Subject Date Message-ID (optional . Organization) (optional . User-Agent))) (setq message-required-mail-headers '((X-Face . x-face-contents) From Subject Date (optional . In-Reply-To) Message-ID (optional . User-Agent))) (setq message-ignored-news-headers "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc= :\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:") (setq message-ignored-mail-headers "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-D= raft-From:\\|^X-Gnus-Agent-Meta-Information:\\|^Sender:\\|^Sender:") (setq message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Ho= st:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-Compla= ints-To:\\|Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|= ^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:\\|^X-Paymen= t:\\|^Approved:") (setq message-subject-re-regexp "^[ ]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ ]*= \\)*[ ]*") (setq message-interactive t) (setq message-make-forward-subject-function 'message-forward-subject-name-s= ubject) (setq message-forward-show-mml 'best) (setq message-ignored-resent-headers "^Return-receipt\\|^X-Gnus\\|^Gnus-War= ning:\\|^>?From ") (setq message-sendmail-f-is-evil nil) ;; (makeunbound 'message-cater-to-broken-inn) (setq message-generate-headers-first '(references)) (setq message-setup-hook '(mc-install-write-mode)) (setq message-mode-hook '(#[nil "\302\030\303 !)\207" [gnus-article-copy gnus-setup-message-group nil gnus-configure-posti= ng-styles] 2])) (setq message-header-setup-hook '(gnus-inews-insert-archive-gcc gnus-inews-insert-gcc)) (setq message-cite-function 'message-cite-original-without-signature) ;; (makeunbound 'message-buffer-naming-style) (setq message-dont-reply-to-names ".*@myrkr.in-berlin.de") --=-=-=--