(smtpmail-auth-supported): Added the 'plain auth method

[gnu-emacs] / lisp / mail / blessmail.el

diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el
index 843a616d03ef8cfbd1434f212fc2a9a6200f61ea..c8bb2e729d2fafe6c8544ff2e3e384ea1670514c 100644 (file)
--- a/lisp/mail/blessmail.el
+++ b/lisp/mail/blessmail.el
@@ -1,6 +1,6 @@
-;;; blessmail.el --- Decide whether movemail needs special privileges.
+;;; blessmail.el --- decide whether movemail needs special privileges -*- no-byte-compile: t -*-
 
-;;; Copyright (C) 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1994 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -18,8 +18,9 @@
 ;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; 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.
 
 ;;; Commentary:
 
@@ -45,25 +46,25 @@
     (setq dirname (if (file-name-absolute-p linkname)
                      linkname
                    (concat (file-name-directory dirname) linkname))))
-  (setq attr (file-attributes dirname))
-  (or (eq t (car attr))
-      (signal 'error
-             (list (format "%s is not a directory" rmail-spool-directory))))
-  (setq modes (nth 8 attr))
   (insert "#!/bin/sh\n")
-  (cond ((= ?w (aref modes 8))
-        ;; Nothing needs to be done.
-        )
-       ((= ?w (aref modes 5))
-        (insert "chgrp " (number-to-string (nth 3 attr))
-                " $* && chmod g+s $*\n"))
-       ((= ?w (aref modes 2))
-        (insert "chown " (number-to-string (nth 2 attr))
-                " $* && chmod u+s $*\n"))
-       (t
-        (insert "chown root $* && chmod u+s $*\n")))
+  (setq attr (file-attributes dirname))
+  (if (not (eq t (car attr)))
+      (insert (format "echo %s is not a directory\n" rmail-spool-directory))
+    (setq modes (nth 8 attr))
+    (cond ((= ?w (aref modes 8))
+          ;; Nothing needs to be done.
+          )
+         ((= ?w (aref modes 5))
+          (insert "chgrp " (number-to-string (nth 3 attr))
+                  " $* && chmod g+s $*\n"))
+         ((= ?w (aref modes 2))
+          (insert "chown " (number-to-string (nth 2 attr))
+                  " $* && chmod u+s $*\n"))
+         (t
+          (insert "chown root $* && chmod u+s $*\n"))))
   (insert "echo mail directory = " dirname "\n"))
 (write-region (point-min) (point-max) "blessmail")
 (kill-emacs)
 
+;;; arch-tag: c3329fe2-f945-41a9-8b00-b4b038ff182f
 ;;; blessmail.el ends here