From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/54818 Path: main.gmane.org!not-for-mail From: Manoj Srivastava Newsgroups: gmane.emacs.gnus.general Subject: gnus: pgg-gpg-lookup-key uses wrong regular expression Date: Fri, 14 Nov 2003 09:27:51 -0600 Organization: The Debian Project Sender: ding-owner@lists.math.uh.edu Message-ID: <87oevfug08.fsf@glaurung.green-gryphon.com> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1068823892 13113 80.91.224.253 (14 Nov 2003 15:31:32 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 14 Nov 2003 15:31:32 +0000 (UTC) Cc: ultrasoul@ultrasoul.com (David D. Smith), 220521-forwarded@bugs.debian.org, ding@gnus.org Original-X-From: ding-owner+M3358@lists.math.uh.edu Fri Nov 14 16:31:23 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AKfus-0007bQ-00 for ; Fri, 14 Nov 2003 16:31:22 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1AKftv-0001d2-00; Fri, 14 Nov 2003 09:30:23 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1AKfth-0001cu-00 for ding@lists.math.uh.edu; Fri, 14 Nov 2003 09:30:11 -0600 Original-Received: from glaurung.green-gryphon.com (host-12-107-230-171.dtccom.net [12.107.230.171]) by justine.libertine.org (Postfix) with ESMTP id 28EDC3A0027; Fri, 14 Nov 2003 09:30:06 -0600 (CST) Original-Received: from glaurung.green-gryphon.com (srivasta@localhost [127.0.0.1]) by glaurung.green-gryphon.com (8.12.9/8.12.9/Debian-5) with ESMTP id hAEFRqRW013351; Fri, 14 Nov 2003 09:27:52 -0600 Original-Received: (from srivasta@localhost) by glaurung.green-gryphon.com (8.12.9/8.12.9/Debian-5) id hAEFRppB013344; Fri, 14 Nov 2003 09:27:51 -0600 X-Authentication-Warning: glaurung.green-gryphon.com: srivasta set sender to srivasta@debian.org using -f X-Mailer: emacs 21.3.1 (via feedmail 8 I) Original-To: bugs@gnus.org (The Gnus Bugfixing Girls + Boys) X-URL: http://www.debian.org/%7Esrivasta/ User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (gnu/linux) (i386-pc-linux-gnu) Mail-Copies-To: nobody X-Face: #q.#]5@vq!Jz+E0t_/;Y^gTjR\T^"B'fbeuVGiyKrvbfKJl!^e|e:iu(kJ6c|QYB57LP*|t &YlP~HF/=h:GA6o6W@I#deQL-%#.6]!z:6Cj0kd#4]>*D,|0djf'CVlXkI,>aV4\}?d_KEqsN{Nnt7 78"OsbQ["56/!nisvyB/uA5Q.{)gm6?q.j71ww.>b9b]-sG8zNt%KkIa>xWg&1VcjZk[hBQ>]j~`Wq Xl,y1a!(>6`UM{~'X[Y_,Bv+}=L\SS*mA8=s;!=O`ja|@PEzb&i0}Qp,`Z\:6:OmRi* Mail-Followup-To: bugs@gnus.org (The Gnus Bugfixing Girls + Boys), ultrasoul@ultrasoul.com (David D. Smith), 220521-forwarded@bugs.debian.org, ding@gnus.org Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:54818 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:54818 --=-=-= Gnus v5.10.2 GNU Emacs 21.3.1 (i386-pc-linux-gnu, X toolkit) of 2003-10-31 on raven, modified by Debian Hi, [Please retain the CC to 220521-forwarded@bugs.debian.org, so that the Debian BTS has a record of your contribution] This was reported by a Debian user. In pgg-gpg-kookup-key (line 113 of pgg-gpg.el), that re-search-forward call places point at the end of "^\\(sec\\|pub\\):" Next, it splits that string at point on ":" separation. The problem is that if the string looks like this: "sec::foo:bar", split string returns '("foo" "bar"), not what the code actually expects it to return, '("" "foo" "bar"). The code wants to extract the third element of that list return from the split which is now unpredictable. This bug was provoked because when I'm signing, it parses a string like the one given, but when I'm verifying, it parses a string like "pub:u:foo:bar" which returns '("u" "foo" "bar") and the third element of that list is indeed what we want. >From the documentation of the split-string function, "If there is match for SEPARATORS at the beginning of STRING, we do not include a null substring for that. Likewise, if there is a match at the end of STRING, we don't include a null substring for that. Changing the regular expression to not include the first colon, so "^\\(sec\\|pub\\)" produces the proper result every time. Another option may be to search forward to the point found by the original regular expression and back up one place, so we know every time that the string to be split will begin with a separator. manoj --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline Content-Description: User settings Content-Transfer-Encoding: quoted-printable ------------------ Environment follows ------------------ (setq gnus-parameters '(("^nnml:\\(debian-.*\\)$" (to-address . "\\1@lists.debian.org") (to-list . "\\1@lists.debian.org") (admin-address . "\\1-request@lists.debian.org") (subscribed . t) (total-expire . t)))) (setq gnus-directory "~/var/spool/news") (setq gnus-default-directory "~/") (setq gnus-default-nntp-server "") (setq gnus-nntpserver-file "/etc/news/server") (setq gnus-select-method '(nnspool "")) (setq gnus-message-archive-method '(nnfolder "archive" (nnfolder-inhibit-expiry t) (nnfolder-directory "~/var/spool/news/archive") (nnfolder-active-file "~/var/spool/news/archive/active") (nnfolder-get-new-mail nil))) (setq gnus-message-archive-group '((if (message-news-p) (concat "news." (format-time-string "%Y-%m" (current-time))) (concat "mail." (format-time-string "%Y-%m" (current-time)))))) (setq gnus-secondary-select-methods '((nnml "" (nnml-directory "~/var/spool/news/nnml/") (nnml-use-compressed-files t) (nnml-active-file "~/var/spool/news/nnml/active") (nnml-newsgroups-file "~/var/spool/news/nnml/newsgroups")) (nnslashdot ""))) (setq gnus-local-domain "golden-gryphon.com") (setq gnus-local-organization "Manoj Srivastava's Home") (setq gnus-refer-article-method '(current (nntp "localhost") (nntp "news.gnus.org") (nnweb "google" (nnweb-type google)))) (setq gnus-large-newsgroup 300) (setq gnus-use-long-file-name nil) (setq gnus-kill-files-directory "~/var/spool/news/kill/") (setq gnus-use-adaptive-scoring '(word line)) (setq gnus-use-cache t) (setq gnus-interactive-exit nil) (setq gnus-mode-non-string-length 41) (setq gnus-group-use-permanent-levels 5) (setq gnus-group-change-level-function 'gnus-topic-change-level) (setq gnus-visual t) (setq gnus-article-save-directory "~/var/spool/news/save/") (setq gnus-fetch-old-headers 'some) (setq gnus-summary-gather-subject-limit 'fuzzy) (setq gnus-simplify-subject-functions '(gnus-simplify-subject-re gnus-simplify-whitespace gnus-simplify-sub= ject-fuzzy)) (setq gnus-simplify-ignored-prefixes "\\`\\[?\\(looking\\|wanted\\|followup= \\|summary\\( of\\)?\\|help\\|query\\|problem\\|question\\|answer\\|referen= ce\\|announce\\|How can I\\|How to\\|Comparison of\\)\\s *\\(for\\|for refe= rence\\|with\\|about\\)?\\]?:?[ ]*") (setq gnus-build-sparse-threads 'more) (setq gnus-summary-same-subject " '' ") (setq gnus-summary-zcore-fuzz 2) (setq gnus-thread-hide-subtree t) (setq gnus-thread-indent-level 3) (setq gnus-auto-select-next 'quietly) (setq gnus-summary-check-current t) (setq gnus-summary-mode-line-format "%g %Z %d %t %r %E") (setq gnus-list-identifiers '("\\[NOCEM-L:[0-9]*\\]" "\\[LI\\]" "\\[CLUE-\\(Talk\\|Tech\\)\\]" "\= \[ruby-talk:[0-9]+\\]" "\\[linux-elitists\\]" "\\[users\\]" "(keitai-l)" "\= \[THTTPD\\]" "\\[Prcs-list\\]" "\\[fetchmail\\]" "\\[spamtools\\]" "\\[Bitk= eeper-users\\]" "TEAM-INTERNET:")) (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number gnus-thread-sort-by-subject gnus-thread-= sort-by-total-score)) (setq gnus-summary-mode-hook '(gnus-agent-mode mc-install-read-mode)) (setq gnus-select-group-hook '((lambda nil (cond ((string-match "sources" gnus-newsgroup-name) (setq gnus-auto-select-first nil)) ((string-match "jobs" gnus-newsgroup-name) (setq gnus-auto-select-first nil)) ((string-match "comp\\.archives" gnus-newsgroup-name) (setq gnus-auto-select-first nil)) ((string-match "reviews" gnus-newsgroup-name) (setq gnus-auto-select-first nil)) ((string-match "announce" gnus-newsgroup-name) (setq gnus-auto-select-first nil)) ((string-match "binaries" gnus-newsgroup-name) (setq gnus-auto-select-first nil)) (t (setq gnus-auto-select-first t)))) gnus-group-set-timestamp)) (setq gnus-exit-group-hook '(gnus-uu-delete-work-dir gnus-uu-clean-up bbdb-offer-save)) (setq gnus-ps-print-hook '((lambda nil (when (string-match (buffer-name) "*******Article**") (setq ps-left-header (list (concat "(" (mail-header-subject gnus-current-headers) ")") (concat "(" (mail-header-from gnus-current-headers) ")"))) (setq ps-right-header (list "/pagenumberstring load" (concat "(" (mail-header-date gnus-current-headers) ")"))))))) (setq gnus-ignored-from-addresses nil) (setq gnus-group-sort-function '(gnus-group-sort-by-unread gnus-group-sort-by-rank)) (setq gnus-group-line-format "%M%S%L%p %5,5y[%2T/%3,3I]:%(%-25,25c%)%O %6,6= ~(cut 2)d%O%6z%10D\n") (setq gnus-group-catchup-group-hook '(gnus-topic-update-topic gnus-group-set-timestamp)) (setq gnus-group-prepare-hook '(#[nil "\010<\205\201\000\306 \210\306 \210\307\310\311\"\210\312\31= 3!\210\307\310\314\"\210\312\313!\210\307\310\315\"\210\212\316 \031 \203D\= 000 \211A\021@\032\010\033\317\320\215\211\034\203@\000\321\n\322\f#\210+\2= 02&\000*\015\036\027\016\027\203|\000\016\027\211A\026\027@\211\036\030<\20= 3x\000\016\030\211\036\031AA)@\211\036\031A@)\323=3D\203x\000\324\305\016\0= 30\"\210\325\026\027)\202H\000)\307\310\326\"\207" [gnus-agent-expire-days groups group days day gnus-group-prepare-hoo= k beep gnus-message 1 "WARNING: gnus-agent-expire-days no longer supports b= eing set to a list." sleep-for 3 "Change your configuration to set it to an= integer." "I am now setting group parameters on each group to match the co= nfiguration that the list offered." gnus-group-listed-groups found (byte-code "\010\203$\000\303\010\211\031@@)\n\"\304=3D\203\035\0= 00\305\306\010\211\031@A)@\"\210\010A\211\020\204\004\000\307\207" [days x group string-match 0 throw found nil] 4) gnus-group-set-parameter agent-days-until-old gnus-agent-do-once = remove-hook nil "I have finished setting group parameters on each group. Yo= u may now customize your groups and/or topics to control the agent." h func= x] 5])) (setq gnus-exit-gnus-hook '(mm-destroy-postponed-undisplay-list)) (setq gnus-group-highlight '(((> unread 800) . my-group-face-1) ((> unread 400) . cyan-bold) ((> unread 200) . violet-bold) ((and (< level 3) (zerop unread)) . my-group-face-2) ((< level 2) . magenta-bold) ((< level 3) . my-group-face-3) ((< level 4) . orchid-bold) ((zerop unread) . my-group-face-4) (t . my-group-face-5))) (setq gnus-visible-headers '("From:" "^Newsgroups:" "^Subject:" "^Date:" "^Followup-To:" "^Reply= -To:" "^Organization:" "^Summary:" "^Keywords:" "^To:" "^Cc:" "^Posted-To:"= "^Mail-Copies-To:" "^Apparently-To:" "^Gnus-Warning:" "^Resent-From:" "X-S= ent:" "^X-Debian-PR-Message:" "^X-Debian-PR-Package:")) (setq gnus-boring-article-headers '(empty followup-to newsgroups many-to reply-to)) (setq gnus-article-skip-boring t) (setq gnus-signature-separator "^\\(-- \\|^-- *\\|________\\=3D=3D=3D=3D= =3D=3D=3D=3D*\\)$") (setq gnus-saved-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Fol= lowup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^= [BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Apparent= ly-To:\\|^Gnus-Warning:\\|^Resent-From:\\|^X-Sent:") (setq gnus-default-article-saver 'gnus-summary-save-in-mail) (setq gnus-mail-save-name 'gnus-numeric-save-name) (setq gnus-article-mode-line-format "%b [%A] %w|%m %10S") (setq gnus-article-prepare-hook '(bbdb/gnus-pop-up-bbdb-buffer)) (setq gnus-unbuttonized-mime-types '("text/")) (setq gnus-buttonized-mime-types '("multipart/encrypted" "application/x-pkcs7-mime" "multipart/signed"= )) (setq gnus-treat-highlight-signature 'last) (setq gnus-treat-emphasize t) (setq gnus-treat-hide-boring-headers 'head) (setq gnus-treat-date-lapsed 'head) (setq gnus-treat-strip-trailing-blank-lines t) (setq gnus-treat-strip-multiple-blank-lines t) (setq gnus-treat-from-picon 'head) (setq gnus-treat-mail-picon 'head) (setq gnus-treat-body-boundary nil) (setq gnus-startup-file "~/etc/newsrc") (setq gnus-init-file "~/etc/gnusrc") (setq gnus-dribble-directory "~/var/spool/news/cache") (setq gnus-activate-foreign-newsgroups 3) (setq gnus-subscribe-newsgroup-method 'gnus-subscribe-topics) (setq gnus-startup-hook '(bbdb-insinuate-gnus)) (setq gnus-setup-news-hook '(gnus-agent-queue-setup gnus-fixup-nnimap-unread-after-getting-new-n= ews)) (setq gnus-save-newsrc-hook '(bbdb-offer-save)) (setq gnus-group-mode-hook '(gnus-agent-mode gnus-topic-mode)) (setq gnus-message-setup-hook '((lambda nil (define-key (current-local-map) "\0304x" 'select-xface)))) (setq gnus-posting-styles '((".*" (name "Manoj Srivastava") (address "srivasta@datasync.com") ("X-URL" "http://www.datasync.com/%7Esrivasta/") ("User-Agent" (if (=3D 0 (random 10)) (format "Microsoft Gnus Express, Build %s (%s)" (gnus-continuum-version (gnus-version)) gnus-version-number) (concat (gnus-extended-version) " (" system-configuration ")"))) (organization "Manoj Srivastava's Home") (signature-file "~/.signature")) ("^nnml:.*" (address "srivasta@acm.org") ("X-URL" "http://www.datasync.com/%7Esrivasta/") (organization "The Golden Gryphon") (signature-file "~/.signature.acm")) ("^nnml:gnu-arch-users" (address "srivasta@datasync.com") ("X-URL" "http://www.datasync.com/%7Esrivasta/") (organization "The Golden Gryphon") (signature-file "~/.signature.acm")) ("^nnml:debian.*" (address "srivasta@debian.org") ("X-URL" "http://www.debian.org/%7Esrivasta/") (organization "The Debian Project") (signature-file "~/.signature.debian")) ("^nnml:lsb-.*" (address "srivasta@debian.org") ("X-URL" "http://www.debian.org/%7Esrivasta/") (organization "The Debian Project") (signature-file "~/.signature.debian")) ("^nnml:nlug" (address "srivasta@debian.org") ("X-URL" "http://www.debian.org/%7Esrivasta/") (organization "The Debian Project") (signature-file "~/.signature.debian")) ("^nnml:debian-ctte.*" (address "srivasta@debian.org") ("Approved: moderator")) ("^nnml:linux.*" (address "srivasta@acm.org") ("X-URL" "http://www.debian.org/") (organization "The Debian Project") (signature-file "~/.signature.debian")) ("^nnml:stdc*" (address "manoj.srivastava@stdc.com") (organization "S/TDC") (signature-file "~/.signature.stdc")) ("^nnml:ul-.*" (address "manoj.srivastava@stdc.com") (organization "S/TDC") (signature-file "~/.signature.stdc")) ("^nnml:quite" (address "manoj.srivastava@stdc.com") (organization "S/TDC") (signature-file "~/.signature.stdc")) ("^nnml:quite.*" (address "manoj.srivastava@stdc.com") (organization "S/TDC") (signature-file "~/.signature.stdc")) ("^nnml:tog.*" (address "manoj.srivastava@stdc.com") (organization "S/TDC") (signature-file "~/.signature.stdc")) ("^nnml:selinux" (address "manoj.srivastava@stdc.com") (organization "S/TDC") (signature-file "~/.signature.stdc")) ((message-news-p) (address "srivasta@ieee.org") ("Mail-Copies-To" "never")) ("gnu\\.emacs\\.bug" ("Mail-Copies-To" nil)))) (setq gnus-score-find-score-files-function '(gnus-score-find-bnews bbdb/gnus-score)) (setq gnus-score-interactive-default-score 1024) (setq gnus-score-expiry-days 10) (setq gnus-decay-scores t) (setq gnus-score-decay-constant 32) (setq gnus-default-adaptive-score-alist '((gnus-unread-mark) (gnus-ticked-mark (from 256) (subject 512) (followup 1024)) (gnus-dormant-mark (from 512) (subject 1024)) (gnus-del-mark (subject -512)) (gnus-read-mark (from 32) (subject 256)) (gnus-expirable-mark) (gnus-killed-mark (from -64) (subject -512) (followup -1024)) (gnus-kill-file-mark (from -256) (subject -128)) (gnus-ancient-mark) (gnus-low-score-mark) (gnus-catchup-mark (from -32) (subject -256)))) (setq gnus-adaptive-word-length-limit 5) (setq gnus-default-ignored-adaptive-words '("a" "ab" "about" "al" "all" "also" "am" "an" "and" "another" "any" = "are" "as" "at" "aw" "b" "back" "be" "because" "been" "before" "being" "bl"= "bo" "both" "but" "by" "c" "can" "cf" "could" "current" "d" "de" "did" "do= " "dw" "e" "each" "eb" "eg" "end" "ep" "even" "f" "first" "for" "from" "g" = "gb" "get" "go" "good" "gp" "h" "had" "have" "hc" "he" "here" "his" "how" "= i" "if" "ii" "il" "in" "into" "is" "it" "j" "just" "k" "know" "kt" "l" "las= t" "like" "long" "lx" "m" "make" "many" "may" "mb" "me" "might" "mo" "more"= "most" "mp" "much" "must" "mx" "my" "n" "name" "nc" "ne" "new" "no" "not" = "now" "o" "of" "off" "on" "one" "only" "or" "other" "our" "out" "over" "p" = "part" "pb" "people" "pk" "point" "q" "qt" "qt" "r" "rc" "rd" "re" "rh" "ri= ght" "rs" "rx" "s" "same" "say" "sb" "sb" "see" "should" "since" "so" "some= " "sp" "sr" "st" "start" "state" "still" "such" "t" "tc" "than" "that" "the= " "their" "them" "then" "there" "these" "they" "this" "those" "ti" "time" "= tk" "to" "too"! "true" "try" "two" "u" "under" "up" "us" "use" "v" "value" "very" "vs" "v= s" "w" "was" "way" "we" "well" "were" "what" "when" "where" "which" "while"= "who" "why" "will" "with" "without" "work" "would" "wu" "x" "xf" "xp" "y" = "yc" "you" "your" "z" "questions" "question" "problem" "problems")) (setq gnus-default-adaptive-word-score-alist '((\,gnus-read-mark . 300) (\,gnus-ticked-mark . 600) (\,gnus-dormant-mark . 800) (\,gnus-catchup-mark . -100) (\,gnus-killed-mark . -200) (\,gnus-del-mark . -150))) (setq gnus-adaptive-word-minimum -32) (setq gnus-adaptive-word-no-group-words t) (setq gnus-buffer-configuration '((summary (vertical 1.0 (group 5) (summary 1.0))) (article (vertical 1.0 (group 5) (summary 0.25 point) (article 1.0))) (group (vertical 1.0 (group 1.0 point) (if gnus-carpal '(group-carpal 4)))) (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-topic-line-format "%i[ %(%5{%n%}%) -- %g/%a/%A ]%v\n") (setq gnus-cache-active-file "~/var/spool/news/cache/active") (setq gnus-uncacheable-groups "^nnml") (setq gnus-server-mode-hook '(gnus-agent-mode)) (setq mm-charset-synonym-alist '((windows-1251 . cp1251) (windows-1252 . iso-8859-1))) (setq mm-coding-system-priorities '(iso-latin-1 utf-8)) (setq mm-text-html-renderer 'links) (setq mm-inlined-types '("application/pgp" "image/.*" "text/.*" "message/delivery-status" "m= essage/rfc822" "message/partial" "message/external-body" "application/emacs= -lisp" "application/x-emacs-lisp" "application/pgp-signature" "application/= x-pkcs7-signature" "application/pkcs7-signature" "application/x-pkcs7-mime"= "application/pkcs7-mime")) (setq mm-automatic-display '("application/pgp" "text/plain" "text/enriched" "text/richtext" "tex= t/x-vcard" "image/.*" "message/delivery-status" "multipart/.*" "message/rfc= 822" "text/x-patch" "application/pgp-signature" "application/emacs-lisp" "a= pplication/x-emacs-lisp" "application/x-pkcs7-signature" "application/pkcs7= -signature" "application/x-pkcs7-mime" "application/pkcs7-mime")) (setq mm-discouraged-alternatives '("text/html" "text/richtext")) (setq mm-tmp-directory "/tmp/") (setq mm-file-name-rewrite-functions '(mm-file-name-trim-whitespace mm-file-name-collapse-whitespace mm-fi= le-name-replace-whitespace)) (setq mm-default-directory "~/") (setq nnmail-expiry-wait-function '(lambda (group) (cond ((string-match "private" group) 31) ((string-match "junk" group) 1) ((string-match "important" group) 'never) ((string=3D group "nnml:debian-private") 31) ((string=3D group "debian-private") 31) ((string=3D group "nnml:outgoing") 'never) ((string=3D group "outgoing") 'never) ((string=3D group "nnml:debian-ctte") 'never) ((string=3D group "debian-ctte") 'never) ((string=3D group "nnml:debian-vote") 'never) ((string=3D group "debian-vote") 'never) ((string=3D group "nnml:quite") 'never) ((string=3D group "quite") 'never) ((string=3D group "nnml:stdc") 'never) ((string=3D group "stdc") 'never) ((string=3D group "ul-principals") 'never) ((string=3D group "nnml:ul-principals") 'never) ((string=3D group "nnml:ul-developer") 950) ((string=3D group "ul-developer") 950) ((string=3D group "nnml:ul-security") 950) ((string=3D group "ul-security") 950) ((string=3D group "nnml:ul-logistics") 950) ((string=3D group "ul-logistics") 950) ((string=3D group "nnml:ul-assessment") 950) ((string=3D group "ul-assessment") 950) ((string=3D group "orders") 65) ((string=3D group "nnml:orders") 65) ((string=3D group "nnml:quite-eng-internal") 30) ((string=3D group "quite-eng-internal") 30) ((string=3D group "nnml:quite-cvs") 31) ((string=3D group "quite-cvs") 31) ((string=3D group "nnml:linux-dce") 31) ((string=3D group "linux-dce") 31) ((string=3D group "nnml:debian-bugs") 2) ((string=3D group "nnml:debian-user") 2) ((string=3D group "debian-bugs") 2) ((string=3D group "debian-user") 2) ((string=3D group "mail.junk") 1) ((string=3D group "globus") 1) ((string=3D group "nnml:globus") 1) (t 4)))) (setq nnmail-spool-file '((directory :path "~/var/spool/mail" :suffix ".spool"))) (setq nnmail-prepare-incoming-header-hook '(nnmail-remove-leading-whitespace)) (setq nnmail-message-id-cache-file "~/var/spool/news/nnmail/nnmail-cache") (setq nnmail-extra-headers '(Resent-CC X-Debian-PR-Package X-Debian-PR-Message X-Spam-Flag)) (setq message-directory "/home/srivasta/mail") (setq message-from-style 'angles) (setq message-required-headers '((X-Draft-From lambda nil (gnus-inews-make-draft-meta-information "nnml:debian" 'nil)) (optional . References) From)) (setq message-user-organization-file "/etc/news/organization") (setq message-send-mail-function 'feedmail-send-it) (setq message-subscribed-address-functions '(gnus-find-subscribed-addresses)) (setq message-subscribed-regexps '("\\(ding@gnus\\)\\|\\(.*@debian\\)\\.org")) (setq message-setup-hook '(mail-insert-cookie my-message-setup-function bbdb-define-all-aliase= s mail-abbrevs-setup mc-install-write-mode)) (setq message-mode-hook '(#[nil "\301\010!\207" [gnus-setup-message-group gnus-configure-posting-styles] 2] (lambda nil (define-key message-mode-map "\003\001" 'mml-attach-file)) my-message-mode-hook-mail-aliases)) (setq message-header-setup-hook '(gnus-inews-insert-archive-gcc gnus-inews-insert-gcc)) (setq message-cite-function 'sc-cite-original) (setq message-auto-save-directory "~/Mail/drafts/") --=-=-= -- I thought YOU silenced the guard! Manoj Srivastava 1024R/C7261095 print CB D9 F4 12 68 07 E4 05 CC 2D 27 12 1D F5 E8 6E 1024D/BF24424C print 4966 F272 D093 B493 410B 924B 21BA DABB BF24 424C --=-=-=--