/[emacs]/emacs/lisp/gnus/webmail.el
ViewVC logotype

Diff of /emacs/lisp/gnus/webmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.2.1 by schwab, Thu Jul 22 16:45:51 2004 UTC revision 1.4.2.2 by rsteib, Tue Aug 31 14:47:58 2004 UTC
# Line 1  Line 1 
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
# Line 196  Line 196 
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)

Legend:
Removed from v.1.4.2.1  
changed lines
  Added in v.1.4.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26