[Emacs-diffs] Changes to emacs/lisp/gnus/webmail.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/10/28 09:18:40

Index: lisp/gnus/webmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/webmail.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- lisp/gnus/webmail.el        26 Jul 2007 05:27:06 -0000      1.11
+++ lisp/gnus/webmail.el        28 Oct 2007 09:18:29 -0000      1.12
@@ -196,10 +196,9 @@
 (defun webmail-debug (str)
   (with-temp-buffer
     (insert "\n---------------- A bug at " str " ------------------\n")
-    (mapcar #'(lambda (sym)
+    (dolist (sym '(webmail-type user))
                (if (boundp sym)
                    (gnus-pp `(setq ,sym ',(eval sym)))))
-           '(webmail-type user))
     (insert "---------------- webmail buffer ------------------\n\n")
     (insert-buffer-substring webmail-buffer)
     (insert "\n---------------- end of buffer ------------------\n\n")