1 |
;;; webmail.el --- interface of web mail |
;;; webmail.el --- interface of web mail |
2 |
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation, Inc. |
3 |
|
|
4 |
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> |
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> |
5 |
;; Keywords: hotmail netaddress my-deja netscape |
;; Keywords: hotmail netaddress my-deja netscape |
196 |
(insert "\n---------------- A bug at " str " ------------------\n") |
(insert "\n---------------- A bug at " str " ------------------\n") |
197 |
(mapcar #'(lambda (sym) |
(mapcar #'(lambda (sym) |
198 |
(if (boundp sym) |
(if (boundp sym) |
199 |
(pp `(setq ,sym ',(eval sym)) (current-buffer)))) |
(gnus-pp `(setq ,sym ',(eval sym))))) |
200 |
'(webmail-type user)) |
'(webmail-type user)) |
201 |
(insert "---------------- webmail buffer ------------------\n\n") |
(insert "---------------- webmail buffer ------------------\n\n") |
202 |
(insert-buffer-substring webmail-buffer) |
(insert-buffer-substring webmail-buffer) |