From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18367 Path: main.gmane.org!not-for-mail From: Danny Siu Newsgroups: gmane.emacs.gnus.general Subject: [error "Invalid Bug" when exiting summery buffer] in pgnus 0.40 Date: 02 Nov 1998 11:48:04 -800 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035156903 5804 80.91.224.250 (20 Oct 2002 23:35:03 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:35:03 +0000 (UTC) Return-Path: Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA23413 for ; Mon, 2 Nov 1998 14:55:08 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id NAB11007; Mon, 2 Nov 1998 13:49:30 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 02 Nov 1998 13:49:20 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id NAA11880 for ; Mon, 2 Nov 1998 13:49:05 -0600 (CST) Original-Received: from smtp-relay-1.Adobe.COM (smtp-relay-1.adobe.com [192.150.11.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA23335 for ; Mon, 2 Nov 1998 14:48:53 -0500 (EST) Original-Received: from inner-relay-1.Adobe.COM (inner-relay-1.corp.adobe.com [153.32.1.51]) by smtp-relay-1.Adobe.COM (8.8.6) with ESMTP id LAA26034 for ; Mon, 2 Nov 1998 11:43:05 -0800 (PST) Original-Received: from mail-303.corp.Adobe.COM by inner-relay-1.Adobe.COM (8.8.5) with ESMTP id LAA15490; Mon, 2 Nov 1998 11:48:16 -0800 (PST) Original-Received: by mail-303.corp.Adobe.COM (8.7.5) with ESMTP id LAA18458; Mon, 2 Nov 1998 11:48:13 -0800 (PST) Original-Received: by mcmug (8.6.9) id LAA04181; Mon, 2 Nov 1998 11:48:04 -0800 Original-To: ding@gnus.org X-Mailer: Pterodactyl Gnus v0.40 X-Face: fHBvLrQQW(GRz#RNTAN(,')p8NGv}{6dMh\:?%*D\+8hgkiA_dub1@\,Y"r5'a8C(8e~cGG(WFTU\OlAqI[B?V7m'ZGkquvZ/d k~E"A"@WK;0mLF&\%W1kIC]O"z#/>YNUefE1%5/NUX;ml]@$nW;05Z9uZ/CqTz]A)+`1ROuF~||pG= k>Zi@hE- X-Emacs: 20.4 "Emerald" XEmacs Lucid X-Location: San Jose, CA Original-Lines: 95 User-Agent: Gnus/5.07004 (Pterodactyl Gnus v0.40) XEmacs/20.4 (Emerald) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:18367 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18367 The evil empire sucks! *Here is the back trace*: Signaling: (error "Invalid date: From ExploringWindowsEditor_003296@news.newswire.microsoft.com Tue Oct 27 03:29:58 1998") signal(error ("Invalid date: From ExploringWindowsEditor_003296@news.newswire.microsoft.com Tue Oct 27 03:29:58 1998")) cerror("Invalid date: %s" "From ExploringWindowsEditor_003296@news.newswire.microsoft.com Tue Oct 27 03:29:58 1998") apply(cerror ("Invalid date: %s" "From ExploringWindowsEditor_003296@news.newswire.microsoft.com Tue Oct 27 03:29:58 1998")) error("Invalid date: %s" "From ExploringWindowsEditor_003296@news.newswire.microsoft.com Tue Oct 27 03:29:58 1998") (condition-case nil (apply (quote encode-time) (parse-time-string date)) (error (error "Invalid date: %s" date))) ) date-to-time("From ExploringWindowsEditor_003296@news.newswire.microsoft.com Tue Oct 27 03:29:58 1998") (setq time (date-to-time time)) ) (progn (setq time (date-to-time time))) ) (if (stringp time) (progn (setq time ...))) ) (when (stringp time) (setq time (date-to-time time))) ) time-since("From ExploringWindowsEditor_003296@news.newswire.microsoft.com Tue Oct 27 03:29:58 1998") (time-less-p days (time-since time)) ) (cond ((or ... ...) nil) ((eq days ...) t) ((equal time ...) nil) ((numberp days) (setq days ...) (time-less-p days ...))) ) (let ((days ...)) (cond (... nil) (... t) (... nil) (... ... ...))) ) (if force t (let (...) (cond ... ... ... ...))) ) nnmail-expired-article-p("News" "From ExploringWindowsEditor_003296@news.newswire.microsoft.com Tue Oct 27 03:29:58 1998" nil nil) (setq is-old (nnmail-expired-article-p newsgroup (buffer-substring ... ...) force nnfolder-inhibit-expiry)) ) (if (setq is-old (nnmail-expired-article-p newsgroup ... force nnfolder-inhibit-expiry)) (progn (nnheader-message 5 "Deleting article %d..." ... newsgroup) (nnfolder-delete-mail)) (push (car articles) rest)) ) (progn (if (setq is-old ...) (progn ... ...) (push ... rest))) ) (if (nnfolder-goto-article (car articles)) (progn (if ... ... ...))) ) (when (nnfolder-goto-article (car articles)) (if (setq is-old ...) (progn ... ...) (push ... rest))) ) (while (and articles is-old) (goto-char (point-min)) (when (nnfolder-goto-article ...) (if ... ... ...)) (setq articles (cdr articles))) ) (save-excursion (set-buffer nnfolder-current-buffer) (while (and articles is-old) (goto-char ...) (when ... ...) (setq articles ...)) (unless nnfolder-inhibit-expiry (nnheader-message 5 "Deleting articles...done")) (nnfolder-save-buffer) (nnfolder-adjust-min-active newsgroup) (nnmail-save-active nnfolder-group-alist nnfolder-active-file) (nconc rest articles)) ) (let* ((is-old t) rest) (nnmail-activate (quote nnfolder)) (save-excursion (set-buffer nnfolder-current-buffer) (while ... ... ... ...) (unless nnfolder-inhibit-expiry ...) (nnfolder-save-buffer) (nnfolder-adjust-min-active newsgroup) (nnmail-save-active nnfolder-group-alist nnfolder-active-file) (nconc rest articles))) ) nnfolder-request-expire-articles((2934 2935 2936 2937 2938 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954) "News" "" nil) funcall(nnfolder-request-expire-articles (2934 2935 2936 2937 2938 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954) "News" "" nil) (let ((gnus-command-method ...)) (funcall (gnus-get-function gnus-command-method ...) articles (gnus-group-real-name group) (nth 1 gnus-command-method) force)) ) gnus-request-expire-articles((2934 2935 2936 2937 2938 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954) "nnfolder:News") (setq es (gnus-request-expire-articles expirable gnus-newsgroup-name)) ) (if expiry-wait (let (... ...) (setq es ...)) (setq es (gnus-request-expire-articles expirable gnus-newsgroup-name))) ) (save-excursion (if expiry-wait (let ... ...) (setq es ...))) ) (progn (gnus-message 6 "Expiring articles...") (save-excursion (if expiry-wait ... ...)) (unless total (setq gnus-newsgroup-expirable es)) (unless (eq es expirable) (let ... ...)) (gnus-message 6 "Expiring articles...done")) ) (if expirable (progn (gnus-message 6 "Expiring articles...") (save-excursion ...) (unless total ...) (unless ... ...) (gnus-message 6 "Expiring articles...done"))) ) (when expirable (gnus-message 6 "Expiring articles...") (save-excursion (if expiry-wait ... ...)) (unless total (setq gnus-newsgroup-expirable es)) (unless (eq es expirable) (let ... ...)) (gnus-message 6 "Expiring articles...done")) ) (let* ((total ...) (expirable ...) (expiry-wait ...) es) (when expirable (gnus-message 6 "Expiring articles...") (save-excursion ...) (unless total ...) (unless ... ...) (gnus-message 6 "Expiring articles...done"))) ) (progn (let* (... ... ... es) (when expirable ... ... ... ... ...))) ) (if (gnus-check-backend-function (quote request-expire-articles) gnus-newsgroup-name) (progn (let* ... ...))) ) (when (gnus-check-backend-function (quote request-expire-articles) gnus-newsgroup-name) (let* (... ... ... es) (when expirable ... ... ... ... ...))) ) gnus-summary-expire-articles() run-hooks(gnus-summary-expire-articles) apply(run-hooks gnus-summary-expire-articles) (unwind-protect (apply (quote run-hooks) funcs) (set-buffer buf)) ) (let ((buf ...)) (unwind-protect (apply ... funcs) (set-buffer buf))) ) gnus-run-hooks(gnus-summary-prepare-exit-hook) (let* ((group gnus-newsgroup-name) (quit-config ...) (mode major-mode) (group-point nil) (buf ...)) (gnus-run-hooks (quote gnus-summary-prepare-exit-hook)) (unless gnus-single-article-buffer (gnus-kill-buffer gnus-original-article-buffer) (setq gnus-article-current nil)) (when gnus-use-cache (gnus-cache-possibly-remove-articles) (gnus-cache-save-buffers)) (gnus-async-prefetch-remove-group group) (when gnus-suppress-duplicates (gnus-dup-enter-articles)) (when gnus-use-trees (gnus-tree-close group)) (nnmail-purge-split-history (gnus-group-real-name group)) (unless quit-config (gnus-run-hooks ...) (gnus-summary-update-info) (when gnus-newsgroup-adaptive ...) (when gnus-use-scoring ...)) (gnus-close-group group) (set-buffer gnus-group-buffer) (unless quit-config (gnus-group-jump-to-group group)) (gnus-run-hooks (quote gnus-summary-exit-hook)) (unless (or quit-config ...) (gnus-group-next-unread-group 1)) (setq group-point (point)) (if temporary nil (when ... ...) (unless gnus-s i! ! ngle-article-buffer ... ... ...) (set-buffer buf) (if ... ... ... ... ... ... ...) (setq gnus-current-select-method gnus-select-method) (pop-to-buffer gnus-group-buffer) (if ... ... ...) (unless quit-config ...))) ) gnus-summary-exit() (let ((current-subject ...) (group gnus-newsgroup-name)) (setq gnus-newsgroup-begin nil) (gnus-summary-exit) (gnus-summary-jump-to-group group) (when rescan (save-excursion ...)) (gnus-group-read-group all t) (gnus-summary-goto-subject current-subject nil t)) ) gnus-summary-reselect-current-group(nil) call-interactively(gnus-summary-reselect-current-group) -- Danny Dick-Fung Siu mailto:dsiu@adobe.com Acrobat Engineering @ Adobe Systems Incorporated http://www.csua.berkeley.edu/~dsiu