projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Give a better error message in the "go offline" case.
[gnus]
/
lisp
/
webmail.el
diff --git
a/lisp/webmail.el
b/lisp/webmail.el
index
b86cc9f
..
86d443a
100644
(file)
--- a/
lisp/webmail.el
+++ b/
lisp/webmail.el
@@
-1,7
+1,7
@@
;;; webmail.el --- interface of web mail
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
;;; webmail.el --- interface of web mail
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008, 2009
, 2010
Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: hotmail netaddress my-deja netscape
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: hotmail netaddress my-deja netscape
@@
-529,7
+529,7
@@
(widen)))
(delete-region p (point-max))
(goto-char (point-min))
(widen)))
(delete-region p (point-max))
(goto-char (point-min))
- ;; Some blank line to sep
e
rate mails.
+ ;; Some blank line to sep
a
rate mails.
(insert "\n\nFrom nobody " (current-time-string) "\n")
(insert "X-Gnus-Webmail: " (symbol-value 'user)
"@" (symbol-name webmail-type) "\n")
(insert "\n\nFrom nobody " (current-time-string) "\n")
(insert "X-Gnus-Webmail: " (symbol-value 'user)
"@" (symbol-name webmail-type) "\n")
@@
-658,7
+658,7
@@
(setq p (point))))
(delete-region p (point-max))
(goto-char (point-min))
(setq p (point))))
(delete-region p (point-max))
(goto-char (point-min))
- ;; Some blank line to sep
e
rate mails.
+ ;; Some blank line to sep
a
rate mails.
(insert "\n\nFrom nobody " (current-time-string) "\n")
(insert "X-Gnus-Webmail: " (symbol-value 'user)
"@" (symbol-name webmail-type) "\n")
(insert "\n\nFrom nobody " (current-time-string) "\n")
(insert "X-Gnus-Webmail: " (symbol-value 'user)
"@" (symbol-name webmail-type) "\n")
@@
-835,7
+835,7
@@
(setq mime (webmail-netaddress-single-part))
(widen))
(goto-char (point-min))
(setq mime (webmail-netaddress-single-part))
(widen))
(goto-char (point-min))
- ;; Some blank line to sep
e
rate mails.
+ ;; Some blank line to sep
a
rate mails.
(insert "\n\nFrom nobody " (current-time-string) "\n")
(insert "X-Gnus-Webmail: " (symbol-value 'user)
"@" (symbol-name webmail-type) "\n")
(insert "\n\nFrom nobody " (current-time-string) "\n")
(insert "X-Gnus-Webmail: " (symbol-value 'user)
"@" (symbol-name webmail-type) "\n")
@@
-962,7
+962,7
@@
(setq mime (webmail-netaddress-single-part))
(widen))
(goto-char (point-min))
(setq mime (webmail-netaddress-single-part))
(widen))
(goto-char (point-min))
- ;; Some blank line to sep
e
rate mails.
+ ;; Some blank line to sep
a
rate mails.
(insert "\n\nFrom nobody " (current-time-string) "\n")
(insert "X-Gnus-Webmail: " (symbol-value 'user)
"@" (symbol-name webmail-type) "\n")
(insert "\n\nFrom nobody " (current-time-string) "\n")
(insert "X-Gnus-Webmail: " (symbol-value 'user)
"@" (symbol-name webmail-type) "\n")
@@
-1148,5
+1148,4
@@
(provide 'webmail)
(provide 'webmail)
-;; arch-tag: f75a4558-a8f6-46ec-b1c3-7a6434b3dd71
;;; webmail.el ends here
;;; webmail.el ends here