pgnus 0.95 gnus-demon-get-new-news()

pgnus 0.95 xemacs XEmacs 21.2 "Demeter" [Lucid] (hppa1.1-hp-hpux10.20) of Fri Apr 23 1999 on oakdale Lisp backtrace follows: mapconcat(char-to-string "|||" " ") # bind (value level function) trace-exit-message(nnimap-mark-to-flag-1 4 "gnus-expire") (insert (trace-exit-message (quote nnimap-mark-to-flag-1) trace-level ad-return-value)) ) # (unwind-protect ...) (save-excursion (set-buffer trace-buffer) (goto-char (point-max)) (insert (trace-exit-message ... trace-level ad-return-value))) ) # bind (trace-buffer trace-level) (let ((trace-level ...) (trace-buffer ...)) (save-excursion (set-buffer trace-buffer) (goto-char ...) (if ... ...) (insert ...)) (setq ad-return-value (ad-Orig-nnimap-mark-to-flag-1 preds)) (save-excursion (set-buffer trace-buffer) (goto-char ...) (insert ...))) ) # bind (ad-return-value) (let (ad-return-value) (let (... ...) (save-excursion ... ... ... ...) (setq ad-return-value ...) (save-excursion ... ... ...)) ad-return-value) ) # bind (preds) nnimap-mark-to-flag-1(expire) # bind (make-string always-list preds) ad-Orig-nnimap-mark-to-flag(expire nil nil) (setq ad-return-value (ad-Orig-nnimap-mark-to-flag preds always-list make-string)) ) # bind (trace-buffer trace-level) (let ((trace-level ...) (trace-buffer ...)) (save-excursion (set-buffer trace-buffer) (goto-char ...) (if ... ...) (insert ...)) (setq ad-return-value (ad-Orig-nnimap-mark-to-flag preds always-list make-string)) (save-excursion (set-buffer trace-buffer) (goto-char ...) (insert ...))) ) # bind (ad-return-value) (let (ad-return-value) (let (... ...) (save-excursion ... ... ... ...) (setq ad-return-value ...) (save-excursion ... ... ...)) ad-return-value) ) # bind (make-string always-list preds) nnimap-mark-to-flag(expire) # bind (pred) #<compiled-function (pred) "...(38)" [nnimap-mark-permanent-p pred nnimap-mark-to-flag imap-mailbox-get flags gnus-info-set-entry info nnimap-update-alist-soft gnus-compress-sequence imap-search nnimap-mark-to-predicate 3] 8>((expirable . expire)) mapc(#<compiled-function (pred) "...(38)" [nnimap-mark-permanent-p pred nnimap-mark-to-flag imap-mailbox-get flags gnus-info-set-entry info nnimap-update-alist-soft gnus-compress-sequence imap-search nnimap-mark-to-predicate 3] 8> ((marked . tick) (replied . reply) (expirable . expire) (killed . killed) (bookmarks . bookmark) (dormant . dormant) (scored . score) (saved . save) (cached . cache) (downloadable . download) (unsendable . unsend))) # (unwind-protect ...) # bind (server info group) ad-Orig-nnimap-request-update-info-internal("mlists.cmu-snmp-users" ("nnimap+crabtree:mlists.cmu-snmp-users" 3 ((1 . 14)) nil (nnimap "crabtree") ((uidvalidity . "922130009"))) "crabtree") (setq ad-return-value (ad-Orig-nnimap-request-update-info-internal group info server)) ) # bind (trace-buffer trace-level) (let ((trace-level ...) (trace-buffer ...)) (save-excursion (set-buffer trace-buffer) (goto-char ...) (if ... ...) (insert ...)) (setq ad-return-value (ad-Orig-nnimap-request-update-info-internal group info server)) (save-excursion (set-buffer trace-buffer) (goto-char ...) (insert ...))) ) # bind (ad-return-value) (let (ad-return-value) (let (... ...) (save-excursion ... ... ... ...) (setq ad-return-value ...) (save-excursion ... ... ...)) ad-return-value) ) # bind (server info group) nnimap-request-update-info-internal("mlists.cmu-snmp-users" ("nnimap+crabtree:mlists.cmu-snmp-users" 3 ((1 . 14)) nil (nnimap "crabtree") ((uidvalidity . "922130009"))) "crabtree") # bind (fast server group) ad-Orig-nnimap-request-group("mlists.cmu-snmp-users" "crabtree" nil) (setq ad-return-value (ad-Orig-nnimap-request-group group server fast)) ) # bind (trace-buffer trace-level) (let ((trace-level ...) (trace-buffer ...)) (save-excursion (set-buffer trace-buffer) (goto-char ...) (if ... ...) (insert ...)) (setq ad-return-value (ad-Orig-nnimap-request-group group server fast)) (save-excursion (set-buffer trace-buffer) (goto-char ...) (insert ...))) ) # bind (ad-return-value) (let (ad-return-value) (let (... ...) (save-excursion ... ... ... ...) (setq ad-return-value ...) (save-excursion ... ... ...)) ad-return-value) ) # bind (fast server group) nnimap-request-group("mlists.cmu-snmp-users" "crabtree" nil) # bind (gnus-command-method group dont-check gnus-command-method) byte-code("..." [group dont-check method gnus-command-method gnus-find-method-for-group gnus-server-to-method gnus-get-function request-group gname string-match "^[^:]+:" 0 nil 1] 5) # (condition-case ... . ((error) (quit))) # bind (method active method dont-check scan group) gnus-activate-group("nnimap+crabtree:mlists.cmu-snmp-users" scan) # bind (method active group info foreign-level level newsrc level) gnus-get-unread-articles(5) # bind (gnus-read-active-file gnus-inhibit-demon nnmail-fetched-sources arg) gnus-group-get-new-news(5) # (unwind-protect ...) (save-excursion (gnus-group-get-new-news 5) (gnus-group-list-groups 5)) ) gnus-demon-get-new-news() byte-code("..." [handler] 1) # (condition-case ... . ((error))) # bind (handlers gnus-inhibit-demon handler time idle) gnus-demon() (lambda nil (gnus-demon))() # bind (this-command inhibit-quit quit-flag current-itimer) # (unwind-protect ...) # bind (match-data) byte-code("..." [match-data match-data ((store-match-data match-data)) itimer current-itimer nil quit-flag inhibit-quit this-command itimer-uses-arguments apply itimer-function itimer-function-arguments] 4) # (condition-case ... . ((error (byte-code "ÀÁÂ !#" ... 5)) (quit (byte-code "ÀÁÂ !Ä !\"" ... 4)))) # (unwind-protect ...) # bind (itimers itimer next-wakeup idle-time last-event-time recorded-run-time inhibit-quit time-elapsed) itimer-run-expired-timers(60.008877) # bind (sleep elapsed now itimer-inside-driver inhibit-quit ignored) itimer-timer-driver(nil) # (condition-case ... . error) # (catch top-level ...) [4] Segmentation fault xemacs