Re: Pterodactyl Gnus v0.73 is released

[Michael Welsh Duggan <md5i@cs.cmu.edu>]

[-- Attachment #1: Type: text/plain, Size: 1262 bytes --]

Ordinarily, I would send this bug-report via the `gnus-bug' interface,
but it has been my experience that bugs posted to the group get fixed
faster than ones sent via `gnus-bug'.  And these are, IMHO, some
fairly serious bugs.  So here we are.  If you would prefer me to not
send such bug reports to the list again, just say so (publicly,
please).  Thanks.

Pterodactyl Gnus v0.73
GNU Emacs 20.3.3 (powerpc-ibm-aix4.1.4.0, X toolkit)
 of Fri Aug 21 1998 on peoria.mt.cs.cmu.edu
200 lyris.teleport.com Lyris NNTP Service ready (posting ok).

Okay, here are a set of bugs related to the new mail handling stuff:

1) `mail-source-fetch-pop' is not robust with respect to pop
   failures.  pop3.el signals an error which needs to be caught:

      (if (looking-at "-ERR")
          (signal 'error (list (buffer-substring (point) (- match-end 2))))

2) `mail-source-callback' has a problem which causes a program
   failure.  The following section:

  (if (or (not (file-exists-p mail-source-crash-box))
          (zerop (nth 7 (file-attributes mail-source-crash-box))))
      (progn
        (delete-file mail-source-crash-box)
        0)

  potentially calls `delete-file' on an empty file, which signals an
  error.  Here is the backtrace (with passwords elided):


[-- Attachment #2: Backtrace of error --]
[-- Type: text/plain, Size: 4607 bytes --]

Signaling: (file-error "Removing old name" "no such file or directory" "/home/md5i/.emacs-mail-crash-box")
  delete-file("~/.emacs-mail-crash-box")
  (progn (delete-file mail-source-crash-box) 0)
  (if (or (not ...) (zerop ...)) (progn (delete-file mail-source-crash-box) 0) (funcall callback mail-source-crash-box info) (if mail-source-delete-incoming (delete-file mail-source-crash-box) (let ... ... ...)) 1)
  mail-source-callback((lambda (file orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file source) (quote nnml-active-number))) "nl.cs.cmu.edu")
  (if (pop3-movemail mail-source-crash-box) (mail-source-callback callback server) (setq mail-source-password-cache (delq ... mail-source-password-cache)) 0)
  (let ((pop3-password password) (pop3-maildrop user) (pop3-mailhost server)) (if (pop3-movemail mail-source-crash-box) (mail-source-callback callback server) (setq mail-source-password-cache ...) 0))
  (let ((from ...)) (setq password (or password ... ...)) (unless (assoc from mail-source-password-cache) (push ... mail-source-password-cache)) (let (... ... ...) (if ... ... ... 0)))
  (let ((password nil) (user nil) (port nil) (server nil)) (mail-source-set-1 source) (let (...) (setq password ...) (unless ... ...) (let ... ...)))
  (mail-source-bind pop source (let (...) (setq password ...) (unless ... ...) (let ... ...)))
  mail-source-fetch-pop((pop :user "md5i" :server "nl.cs.cmu.edu" :password "xxxxx") (lambda (file orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file source) (quote nnml-active-number))))
  funcall(mail-source-fetch-pop (pop :user "md5i" :server "nl.cs.cmu.edu" :password "ikkoku") (lambda (file orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file source) (quote nnml-active-number))))
  (+ found (funcall function source callback))
  (let ((function ...) (found 0)) (unless function (error "%S is an invalid mail source specification" source)) (when (file-exists-p mail-source-crash-box) (message "Processing mail from %s..." mail-source-crash-box) (setq found ...)) (+ found (funcall function source callback)))
  mail-source-fetch((pop :user "md5i" :server "nl.cs.cmu.edu" :password "xxxxx") (lambda (file orig-file) (nnmail-split-incoming file (quote nnml-save-mail) (quote nil) (nnmail-get-split-group orig-file source) (quote nnml-active-number))))
  (if (mail-source-fetch source (\` ...)) (progn (incf i)))
  (when (mail-source-fetch source (\` ...)) (incf i))
  (while (setq source (pop sources)) (when (stringp source) (setq source ...)) (nnheader-message 3 "%s: Reading incoming mail %S..." method source) (when (mail-source-fetch source ...) (incf i)))
  (progn (nnmail-activate method) (run-hooks (quote nnmail-pre-get-new-mail-hook)) (nnmail-cache-open) (while (setq source ...) (when ... ...) (nnheader-message 3 "%s: Reading incoming mail %S..." method source) (when ... ...)) (unless (zerop i) (nnmail-save-active ... ...) (when exit-func ...) (run-hooks ...) (nnheader-message 3 "%s: Reading incoming mail...done" method)) (nnmail-cache-close) (run-hooks (quote nnmail-post-get-new-mail-hook)))
  (if (and (nnmail-get-value "%s-get-new-mail" method) nnmail-spool-file) (progn (nnmail-activate method) (run-hooks ...) (nnmail-cache-open) (while ... ... ... ...) (unless ... ... ... ... ...) (nnmail-cache-close) (run-hooks ...)))
  (when (and (nnmail-get-value "%s-get-new-mail" method) nnmail-spool-file) (nnmail-activate method) (run-hooks (quote nnmail-pre-get-new-mail-hook)) (nnmail-cache-open) (while (setq source ...) (when ... ...) (nnheader-message 3 "%s: Reading incoming mail %S..." method source) (when ... ...)) (unless (zerop i) (nnmail-save-active ... ...) (when exit-func ...) (run-hooks ...) (nnheader-message 3 "%s: Reading incoming mail...done" method)) (nnmail-cache-close) (run-hooks (quote nnmail-post-get-new-mail-hook)))
  (let* ((sources ...) (group-in group) (i 0) nnmail-current-spool incoming incomings source) (when (and ... nnmail-spool-file) (nnmail-activate method) (run-hooks ...) (nnmail-cache-open) (while ... ... ... ...) (unless ... ... ... ... ...) (nnmail-cache-close) (run-hooks ...)))
  nnmail-get-new-mail(nnml nnml-save-nov "~/Mail/" nil)
  nnml-request-scan(nil "~/Mail")
  gnus-request-scan(nil (nnml "~/Mail"))
  gnus-read-active-file(nil nil)
  gnus-setup-news(nil nil nil)
  byte-code("\b„\x0e
  gnus-1(nil nil nil)
  gnus(nil)
* call-interactively(gnus)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)

[-- Attachment #3: Type: text/plain, Size: 5969 bytes --]


3) `nnmail-get-new-mail' outputs a status message with
   `nnheader-message' which is a) unsuited to the new source format,
   and b) outputs any included passwords, which get saved in the
   *Messages* buffer.

4) After fetching, I end up with a `*' next to all my mail groups in
   the *Groups* buffer.  I can read them with
   `gnus-group-select-group' nonetheless, but this is rather annoying.


------------------ Environment follows ------------------

(setq gnus-default-nntp-server "")
(setq gnus-select-method
      '(nntp "dnntp.srv.cs.cmu.edu"
             (nntp-address "dnntp.srv.cs.cmu.edu")
             (nntp-server-xover "XOVER")
             (nntp-authinfo-function 'nntp-send-authinfo-from-file)))
(setq gnus-message-archive-group
      '((if
            (message-news-p)
            "misc-news" "misc-mail")))
(setq gnus-secondary-select-methods
      '((nnml "~/Mail")))
(setq gnus-use-adaptive-scoring t)
(setq gnus-use-cache t)
(setq gnus-expert-user t)
(setq gnus-mode-non-string-length 35)
(setq gnus-auto-select-first nil)
(setq gnus-single-article-buffer nil)
(setq gnus-thread-sort-functions
      '(gnus-thread-sort-by-number gnus-thread-sort-by-date gnus-thread-sort-by-score))
(setq gnus-no-groups-message "No news is horrible news")
(setq gnus-group-default-list-level 4)
(setq gnus-group-line-format "%M%S%p%P%5y: %(%G%) %z\n")
(setq gnus-ignored-headers
      '("^Old-" "^Reply-Path" "^Errors-To" "^Precedence" "^X-From-Line" "^Path:" "^Expires:" "^Date-Received:" "^References:" "^Xref:" "^Lines:" "^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-MSMail-Priority:" "^X-Priority:" "^X-Loop:" "^X-Authentication-Warning:" "^X-MIME-Autoconverted:" "^X-Face:" "^X-Attribution:" "^X-Originating-IP:" "^Delivered-To:" "^NNTP-[-A-Za-z]+:" "^Distribution:" "^X-no-archive:" "^X-Trace:" "^X-Complaints-To:" "^X-NNTP-Posting-Host:" "^X-Orig.*:" "^Abuse-Reports-To:" "^Cache-Post-Path:" "^X-Article-Creation-Date:" "^X-Poster:" "^X-Mail2News-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-Receive
 d!
!
:" "^X-Pgp-Fingerprint:" "^X-Pgp-Key-Id:" "^X-Pgp-Public-Key-Url:" "^X-Auth:" "^X-From-Line:" "^X-Gnus-Article-Number:" "^X-Majordomo:" "^X-Url:" "^X-Sender:" "^X-Mailing-List:" "^MBOX-Line" "^Priority:" "^X-Pgp" "^X400-[-A-Za-z]+:" "^Status:"))
(setq gnus-visible-headers nil)
(setq gnus-boring-article-headers
      '(empty newsgroups followup-to reply-to))
(setq gnus-article-mode-hook
      '(md5i-gnus-load-function))
(setq gnus-save-newsrc-file nil)
(setq gnus-always-read-dribble-file t)
(setq gnus-asynchronous nil)
;; (makeunbound 'gnus-use-article-prefetch)
;; (makeunbound 'gnus-prefetched-article-deletion-strategy)
;; (makeunbound 'gnus-use-header-prefetch)
;; (makeunbound 'gnus-async-prefetch-article-p)
(setq gnus-post-method 'current)
(setq gnus-score-expiry-days 30)
(setq gnus-default-adaptive-score-alist
      '((gnus-kill-file-mark)
        (gnus-unread-mark)
        (gnus-ticked-mark
         (subject 3)
         (followup 20))
        (gnus-dormant-mark
         (followup 5))
        (gnus-del-mark)
        (gnus-read-mark
         (subject 1))
        (gnus-catchup-mark)
        (gnus-killed-mark
         (subject -10)
         (followup -50))
        (gnus-expirable-mark)
        (gnus-low-score-mark)
        (gnus-ancient-mark)))
;; (makeunbound 'gnus-topic-mode)
;; (makeunbound 'gnus-topic-mode-hook)
;; (makeunbound 'gnus-topic-line-format)
;; (makeunbound 'gnus-topic-indent-level)
;; (makeunbound 'gnus-topic-display-empty-topics)
(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-use-long-file-names t)
(setq nnmail-spool-file
      '((pop :user "md5i" :server "nl.cs.cmu.edu" :password "xxxxx")))
(setq nnmail-crosspost-link-function 'make-symbolic-link)
(setq nnmail-split-fancy
      '(|
        (any "m?duggan@\\(ramlink\\|wwd\\)\\.net" "mail.family")
        (any "mi-trans-command" "mail.mi-trans-admin")
        ("subject" "\\(cat\\|kantoo\\)/[0-9]+:.*" "mail.gnats")
        (&
         (|
          (from "\\(eric\\|svoboda\\|teruko\\|igo\\|klb\\).*cmu" "mail.job")
          (from "Kathryn_Baker" "mail.job")
          (from "[@.]cat\\.com" "mail.job")
          (any "catalyst-project" "mail.job")
          (any "pittcmulingannouncements" "mail.job")
          (any "lti-\\(seminar\\|staff\\)" "mail.job")
          (any "cyerthall" "mail.job")
          (to "chaos\\|md5i\\|duggan" "mail.misc"))
         (any "fansubsnet" "mail.fansub")
         (any "ssa-ml" "mail.ssa")
         (any "ding" "mail.Gnus")
         (any "gwm" "mail.gwm")
         (any "mi@ml\\.usagi\\.org" "mail.mi")
         (any "mi-list\\|mlist-mi" "mail.mi")
         (any "mi-trans" "mail.MI-Translation")
         (any "mule" "mail.mule")
         (any "ntemacs-hackers" "mail.ntemacs-hackers")
         (any "ntemacs-users" "mail.ntemacs")
         (any "custom" "mail.custom")
         (any "w3" "mail.w3")
         (any "tsa-talk" "mail.tsa-talk")
         (any "kodocha" "mail.kodocha")
         (any "patlabor" "mail.patlabor")
         (any "emacs-unicode" "mail.unicode")
         (any "DILBERT_NEWS" "mail.misc")
         (any "anime-l" "mail.misc"))
        (to "cmu" "mail.misc")
        "mail.junk"))
(setq nnmail-treat-duplicates 'delete)
(setq message-user-organization "Carnegie Mellon University : KANTOO Project")
(setq message-post-method
      '(nnspool ""))
(setq message-mode-hook
      '(gnus-configure-posting-styles))
(setq message-header-setup-hook
      '(gnus-inews-insert-archive-gcc gnus-inews-insert-gcc))
(setq message-cite-function 'message-cite-original-without-signature)

-- 
Michael Duggan
(md5i@cs.cmu.edu)