Mercurial > emacs
comparison lisp/gnus/webmail.el @ 85712:a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-911
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 28 Oct 2007 09:18:39 +0000 |
| parents | 24202b793a08 |
| children | 107ccd98fa12 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 85711:b6f5dc84b2e1 | 85712:a3c27999decb |
|---|---|
| 194 ;;; Interface functions | 194 ;;; Interface functions |
| 195 | 195 |
| 196 (defun webmail-debug (str) | 196 (defun webmail-debug (str) |
| 197 (with-temp-buffer | 197 (with-temp-buffer |
| 198 (insert "\n---------------- A bug at " str " ------------------\n") | 198 (insert "\n---------------- A bug at " str " ------------------\n") |
| 199 (mapcar #'(lambda (sym) | 199 (dolist (sym '(webmail-type user)) |
| 200 (if (boundp sym) | 200 (if (boundp sym) |
| 201 (gnus-pp `(setq ,sym ',(eval sym))))) | 201 (gnus-pp `(setq ,sym ',(eval sym))))) |
| 202 '(webmail-type user)) | |
| 203 (insert "---------------- webmail buffer ------------------\n\n") | 202 (insert "---------------- webmail buffer ------------------\n\n") |
| 204 (insert-buffer-substring webmail-buffer) | 203 (insert-buffer-substring webmail-buffer) |
| 205 (insert "\n---------------- end of buffer ------------------\n\n") | 204 (insert "\n---------------- end of buffer ------------------\n\n") |
| 206 (append-to-file (point-min) (point-max) webmail-debug-file))) | 205 (append-to-file (point-min) (point-max) webmail-debug-file))) |
| 207 | 206 |