diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/gnus-mule.el | 6 | ||||
| -rw-r--r-- | lisp/gnus/pop3.el | 4 |
2 files changed, 6 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-mule.el b/lisp/gnus/gnus-mule.el index f8100ee6402..0f8c41cc6cb 100644 --- a/lisp/gnus/gnus-mule.el +++ b/lisp/gnus/gnus-mule.el @@ -1,4 +1,4 @@ -;;; gnus-mule.el --- Provide backward compatibility function to GNUS +;;; gnus-mule.el --- provide backward compatibility function to GNUS ;; Copyright (C) 1995,1997 Free Software Foundation, Inc. ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN. @@ -28,6 +28,8 @@ ;; This file provides the function `gnus-mule-add-group' for backward ;; compatibility with old version of Gnus included in Emacs 20. +;;; Code: + (require 'gnus-sum) ;;;###autoload @@ -69,4 +71,4 @@ rather than using this function." (provide 'gnus-mule) -;; gnus-mule.el ends here +;;; gnus-mule.el ends here diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index ed265af8dee..99148388aa8 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -123,7 +123,7 @@ Used for APOP authentication.") ((equal 'pass pop3-authentication-scheme) (pop3-user process pop3-maildrop) (pop3-pass process)) - (t (error "Invalid POP3 authentication scheme."))) + (t (error "Invalid POP3 authentication scheme"))) (setq message-count (car (pop3-stat process))) (pop3-quit process) message-count)) @@ -293,7 +293,7 @@ If NOW, use that time instead." (pop3-send-command process (format "USER %s" user)) (let ((response (pop3-read-response process t))) (if (not (and response (string-match "+OK" response))) - (error (format "USER %s not valid." user))))) + (error (format "USER %s not valid" user))))) (defun pop3-pass (process) "Send authentication information to the server." |