* [error "Invalid Bug" when exiting summery buffer] in pgnus 0.40
@ 1998-11-02 19:48 Danny Siu
1998-11-02 20:00 ` [error "Invalid date: ..." " Danny Siu
0 siblings, 1 reply; 2+ messages in thread
From: Danny Siu @ 1998-11-02 19:48 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 2+ messages in thread
* [error "Invalid date: ..." when exiting summery buffer] in pgnus 0.40
1998-11-02 19:48 [error "Invalid Bug" when exiting summery buffer] in pgnus 0.40 Danny Siu
@ 1998-11-02 20:00 ` Danny Siu
0 siblings, 0 replies; 2+ messages in thread
From: Danny Siu @ 1998-11-02 20:00 UTC (permalink / raw)
Oops. Title corrected.
--
Danny Dick-Fung Siu mailto:dsiu@adobe.com
Acrobat Engineering @ Adobe Systems Incorporated
http://www.csua.berkeley.edu/~dsiu
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1998-11-02 20:00 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1998-11-02 19:48 [error "Invalid Bug" when exiting summery buffer] in pgnus 0.40 Danny Siu
1998-11-02 20:00 ` [error "Invalid date: ..." " Danny Siu
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).