X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fwebmail.el;h=86d443aa90ca7b9218b0955552ab6fe4b426d692;hb=659c336e8a5ea4669f820533232faa9d9f4a462d;hp=894b7d258bc9fb51d07600ac6cb7f86f995c064b;hpb=c358f44b1670d12d5eff5fe5a447a19afd34a252;p=gnus diff --git a/lisp/webmail.el b/lisp/webmail.el index 894b7d258..86d443aa9 100644 --- a/lisp/webmail.el +++ b/lisp/webmail.el @@ -1,27 +1,25 @@ ;;; webmail.el --- interface of web mail ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu ;; Keywords: hotmail netaddress my-deja netscape ;; This file is part of GNU Emacs. -;; GNU Emacs is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published -;; by the Free Software Foundation; either version 3, or (at your -;; option) any later version. +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. -;; GNU Emacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. +;; along with GNU Emacs. If not, see . ;;; Commentary: @@ -531,7 +529,7 @@ (widen))) (delete-region p (point-max)) (goto-char (point-min)) - ;; Some blank line to seperate mails. + ;; Some blank line to separate mails. (insert "\n\nFrom nobody " (current-time-string) "\n") (insert "X-Gnus-Webmail: " (symbol-value 'user) "@" (symbol-name webmail-type) "\n") @@ -660,7 +658,7 @@ (setq p (point)))) (delete-region p (point-max)) (goto-char (point-min)) - ;; Some blank line to seperate mails. + ;; Some blank line to separate mails. (insert "\n\nFrom nobody " (current-time-string) "\n") (insert "X-Gnus-Webmail: " (symbol-value 'user) "@" (symbol-name webmail-type) "\n") @@ -837,7 +835,7 @@ (setq mime (webmail-netaddress-single-part)) (widen)) (goto-char (point-min)) - ;; Some blank line to seperate mails. + ;; Some blank line to separate mails. (insert "\n\nFrom nobody " (current-time-string) "\n") (insert "X-Gnus-Webmail: " (symbol-value 'user) "@" (symbol-name webmail-type) "\n") @@ -964,7 +962,7 @@ (setq mime (webmail-netaddress-single-part)) (widen)) (goto-char (point-min)) - ;; Some blank line to seperate mails. + ;; Some blank line to separate mails. (insert "\n\nFrom nobody " (current-time-string) "\n") (insert "X-Gnus-Webmail: " (symbol-value 'user) "@" (symbol-name webmail-type) "\n") @@ -1150,5 +1148,4 @@ (provide 'webmail) -;;; arch-tag: f75a4558-a8f6-46ec-b1c3-7a6434b3dd71 ;;; webmail.el ends here