Bug in pgnus-0.54

Bug in pgnus-0.54

[Danny Siu]

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



This problem doesn't happen in pgnus-0.52.

-- 
Danny Dick-Fung Siu        mailto:dsiu@adobe.com
Acrobat Engineering @ Adobe Systems Incorporated
      http://www.csua.berkeley.edu/~dsiu


[-- Attachment #2: Type: text/plain, Size: 6641 bytes --]

Signaling: (invalid-function (macro . #<compiled-function (from "subr.elc") (file &rest forms) "...(51)" [make-symbol "temp-file" "temp-buffer" temp-buffer temp-file let file ((get-buffer-create (generate-new-buffer-name " *temp file*"))) unwind-protect prog1 with-current-buffer forms (widen) write-region (point-min) (point-max) (nil 0) and buffer-name kill-buffer] 13 516874>))
  with-temp-file("~/Mail/.folder-active" nil)
  nnmail-save-active((("Work-WinNT" (1 . 389)) ("WinNT" (9 . 428)) ("WSGroup" (1 . 11)) ("Vantive" (1 . 7)) ("Samba" (1 . 3)) ("PuiChing" (1 . 60)) ("PublicSoftware" (1 . 162)) ("PSDOemEng" (1 . 900)) ("PR" (1 . 41)) ("PITA" (1 . 6)) ("PDFastPrint" (1 . 5)) ("Othello" (1 . 14)) ("MoveToTower" (1 . 67)) ("Misc" (1 . 4109)) ("JDE" (1 . 1)) ("Incomingz71_O_" (1 . 0)) ("nil" (1 . 33)) ("IncomingywpL9_" (1 . 0)) ("nil" (1 . 77)) ("IncomingtKGJ4_" (1 . 0)) ("Incomingsd.mk_" (1 . 0)) ("nil" (1 . 9)) ("Incomingr86Ny_" (1 . 0)) ("Incomingqf6tB_" (1 . 0)) ("nil" (1 . 18)) ("IncomingqM4_D_" (1 . 0)) ("Incomingq3Hbm_" (1 . 0)) ("nil" (1 . 13)) ("IncomingpkPGF_" (1 . 0)) ("IncomingpAYZt_" (1 . 0)) ("nil" (1 . 165)) ("Incomingnorkp_" (1 . 0)) ("IncomingncsXF_" (1 . 0)) ("nil" (1 . 13)) ("IncomingmRika_" (1 . 0)) ("Incominglx9mL_" (1 . 0)) ("Incominglh4jM_" (1 . 0)) ("nil" (1 . 19)) ("IncomingkwTQV_" (1 . 0)) ("Incomingjjbxj_" (1 . 0)) ("nil" (1 . 11)) ("IncomingivEBM_" (1 . 0)) ("Incomingi
 T!
!
FJG_" (1 . 0)) ("nil" (1 . 17)) ("IncomingbmAh7_" (1 . 0)) ("IncomingaTVRX_" (1 . 0)) ("IncomingZduRR_" (1 . 0)) ("nil" (1 . 17)) ("IncomingYCXxz_" (1 . 0)) ("IncomingXzSpw_" (1 . 0)) ...) "~/Mail/.folder-active")
  nnfolder-possibly-change-folder("GNUS")
  nnfolder-save-mail((("GNUS" . 14447)))
  nnmail-check-duplication("<oqww4k2895.fsf@icule.progiciels-bpi.ca>" nnfolder-save-mail nnfolder-active-number)
  nnmail-process-unix-mail-format(nnfolder-save-mail nnfolder-active-number)
  nnmail-split-incoming("~/.gnus-crash-box" nnfolder-save-mail nil nil nnfolder-active-number)
  nnmail-get-new-mail(nnfolder #<compiled-function (from "nnfolder.elc") nil "...(57)" [nnfolder-buffer-alist bufs buffer get-buffer buffer-name old-delq nnfolder-save-buffer kill-buffer nil] 4> "~/Mail/" nil)
  nnfolder-request-scan(nil "")
  funcall(nnfolder-request-scan nil "")
  (let ((gnus-command-method ...) (gnus-inhibit-demon t)) (funcall (gnus-get-function gnus-command-method ...) (and group ...) (nth 1 gnus-command-method)))
)
  (progn (let (... ...) (funcall ... ... ...)))
)
  (if gnus-plugged (progn (let ... ...)))
)
  (when gnus-plugged (let (... ...) (funcall ... ... ...)))
)
  gnus-request-scan(nil (nnfolder ""))
  (progn (gnus-request-scan nil method))
)
  (if (gnus-check-backend-function (quote request-scan) (car method)) (progn (gnus-request-scan nil method)))
)
  (when (gnus-check-backend-function (quote request-scan) (car method)) (gnus-request-scan nil method))
)
  (progn (when (gnus-check-backend-function ... ...) (gnus-request-scan nil method)) (cond (... ...) (... t) (t ...)))
)
  (if (gnus-check-server method) (progn (when ... ...) (cond ... ... ...)))
)
  (when (gnus-check-server method) (when (gnus-check-backend-function ... ...) (gnus-request-scan nil method)) (cond (... ...) (... t) (t ...)))
)
  (let* ((method ...) (where ...) (mesg ...)) (gnus-message 5 mesg) (when (gnus-check-server method) (when ... ...) (cond ... ... ...)))
)
  (while methods (let* (... ... ...) (gnus-message 5 mesg) (when ... ... ...)) (setq methods (cdr methods)))
)
  (save-excursion (set-buffer nntp-server-buffer) (while methods (let* ... ... ...) (setq methods ...)))
)
  (let ((methods ...) list-type) (setq gnus-have-read-active-file nil) (save-excursion (set-buffer nntp-server-buffer) (while methods ... ...)))
)
  gnus-read-active-file(nil nil)
  (and gnus-read-active-file (not level) (gnus-read-active-file nil dont-connect))
)
  (let ((init ...)) (when init (setq gnus-newsrc-alist nil gnus-active-hashtb nil) (gnus-read-newsrc-file rawfile)) (when gnus-message-archive-method (setq gnus-server-alist ...) (push ... gnus-server-alist)) (when (or ... ...) (gnus-update-active-hashtb-from-killed)) (and gnus-read-active-file (not level) (gnus-read-active-file nil dont-connect)) (unless gnus-active-hashtb (setq gnus-active-hashtb ...)) (when gnus-use-cache (gnus-cache-open)) (and init (or gnus-use-dribble-file gnus-slave) (gnus-dribble-eval-file)) (when (and init gnus-slave) (gnus-dribble-clear)) (gnus-update-format-specifications) (when (and ... ... ... ... gnus-read-active-file) (gnus-read-all-descriptions-files)) (when (and init gnus-check-new-newsgroups ... ... ... gnus-plugged) (gnus-find-new-newsgroups)) (when (and gnus-use-nocem ... ...) (gnus-nocem-scan-groups)) (gnus-master-read-slave-newsrc) (let (...) (gnus-get-unread-articles level)) (when (and init gnus-check-bogus-newsgroups gnus-read-active-f
 i!
!
le ... ...) (gnus-check-bogus-newsgroups)))
)
  gnus-setup-news(nil nil nil)
  (if (and (not dont-connect) (not did-connect)) (gnus-group-quit) (gnus-run-hooks (quote gnus-startup-hook)) (setq gnus-current-startup-file (gnus-make-newsrc-file gnus-startup-file)) (when (or gnus-slave gnus-use-dribble-file) (gnus-dribble-read-file)) (when gnus-use-grouplens (bbb-login) (add-hook ... ...)) (gnus-setup-news nil level dont-connect) (gnus-run-hooks (quote gnus-setup-news-hook)) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows (quote group)) (gnus-group-set-mode-line) (gnus-run-hooks (quote gnus-started-hook)))
)
  (unwind-protect (progn (unless dont-connect ...)) (if (and ... ...) (gnus-group-quit) (gnus-run-hooks ...) (setq gnus-current-startup-file ...) (when ... ...) (when gnus-use-grouplens ... ...) (gnus-setup-news nil level dont-connect) (gnus-run-hooks ...) (gnus-start-draft-setup) (gnus-group-list-groups level) (gnus-group-first-unread-group) (gnus-configure-windows ...) (gnus-group-set-mode-line) (gnus-run-hooks ...)))
)
  (let ((level ...) did-connect) (unwind-protect (progn ...) (if ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
)
  (if (gnus-alive-p) (progn (switch-to-buffer gnus-group-buffer) (gnus-group-get-new-news ...)) (gnus-clear-system) (gnus-splash) (gnus-run-hooks (quote gnus-before-startup-hook)) (nnheader-init-server-buffer) (setq gnus-slave slave) (gnus-read-init-file) (when gnus-simple-splash (setq gnus-simple-splash nil) (cond ... ...)) (let (... did-connect) (unwind-protect ... ...)))
)
  gnus-1(nil nil nil)
  gnus(nil)
  call-interactively(gnus)
  command-execute(gnus t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)

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

Re: Bug in pgnus-0.54

[Shenghuo ZHU]

>>>>> "Danny" == Danny Siu <dsiu@Adobe.COM> writes:

Danny> This problem doesn't happen in pgnus-0.52.

Danny>   with-temp-file("~/Mail/.folder-active" nil)
Danny>   nnmail-save-active(...

Weird. In nnmail-save-active
      (with-temp-file file-name
	(nnmail-generate-active group-assoc)))))

(nnmail-generate-active group-assoc) is evaluated before
with-temp-file. 

Are you sure that gnus is compiled by dgnushack.el?

-- 
Shenghuo

Re: Bug in pgnus-0.54

[Danny Siu]

Shenghuo ZHU writes:

  >>>>>> "Danny" == Danny Siu <dsiu@Adobe.COM> writes:
  Danny> This problem doesn't happen in pgnus-0.52.

  Danny> with-temp-file("~/Mail/.folder-active" nil) nnmail-save-active(...

  ZSH> Weird. In nnmail-save-active
  ZSH>       (with-temp-file file-name
  ZSH> 	(nnmail-generate-active group-assoc)))))

  ZSH> (nnmail-generate-active group-assoc) is evaluated before
  ZSH> with-temp-file.

  ZSH> Are you sure that gnus is compiled by dgnushack.el?

  ZSH> -- Shenghuo

Thanks Shenghuo.  My bad.  Byte-compiling pgnus fixes it.

-- 
Danny Dick-Fung Siu        mailto:dsiu@adobe.com
Acrobat Engineering @ Adobe Systems Incorporated
      http://www.csua.berkeley.edu/~dsiu