Changes committed gnus/contrib (ChangeLog sendmail.el smtpmail.el)

Modified: ChangeLog sendmail.el smtpmail.el

Merge from emacs--devo--0

Patches applied:

 * emacs--devo--0  (patch 1214-1215, 1218-1219, 1223, 1226, 1228)

   - Update from CVS
   - Merge from gnus--devo--0

2008-06-06  Stefan Monnier  <[email protected]>

   * contrib/sendmail.el (mail-interactive): Change default.

2008-06-11  Glenn Morris  <[email protected]>

   * lisp/gnus-util.el (x-focus-frame):
   * lisp/gnus.el (image-size):
   * lisp/mm-decode.el (image-size): Declare.

   * lisp/gnus-picon.el (declare-function): Add compat definition.
   (image-size): Declare.

   * lisp/gnus-group.el (tool-bar-map):
   * lisp/gnus-sum.el (tool-bar-map): Define for compiler.

   * lisp/gnus-ems.el (gnus-x-splash): Check tool-bar-mode is bound.

   * lisp/nnfolder.el (gnus-intersection): Remove unnecessary autoload.

   * lisp/gnus-agent.el, lisp/gnus-cache.el, lisp/gnus-ems.el, lisp/gnus-group.el:
   * lisp/gnus-logic.el, lisp/gnus-msg.el, lisp/gnus-util.el, lisp/gnus.el, lisp/mail-source.el:
   * lisp/message.el, lisp/mm-decode.el, lisp/mm-encode.el, lisp/mm-view.el, lisp/mml.el:
   * lisp/mml1991.el, lisp/mml2015.el, lisp/nnfolder.el, lisp/nnheader.el, lisp/nnimap.el:
   * lisp/nnmail.el, lisp/nnml.el, lisp/nnrss.el, lisp/nntp.el, lisp/nnvirtual.el:
   * lisp/sieve-manage.el, lisp/spam-report.el, lisp/spam.el:
   Remove unnecessary eval-and-compile of autoloads.

2008-06-08  Michael Albinus  <[email protected]>

   * lisp/auth-source.el: Precise Tramp doc.

2008-06-07  Glenn Morris  <[email protected]>

   * lisp/nnmairix.el: Remove unnecessary eval-when-compile.

2008-06-05  Stefan Monnier  <[email protected]>

   * lisp/gnus-util.el (gnus-read-shell-command): New function.
   * lisp/mm-decode.el (mm-pipe-part):
   * lisp/gnus-art.el (gnus-summary-save-in-pipe): Use it.

Revision: [email protected]/gnus--devo--0--patch-509


Index: ChangeLog
diff -u gnus/contrib/ChangeLog:7.77 gnus/contrib/ChangeLog:7.78
--- ChangeLog:7.77	Thu Jun  5 22:55:41 2008
+++ ChangeLog	Wed Jun 11 16:19:45 2008
@@ -1,3 +1,7 @@
+2008-06-06  Stefan Monnier  <[email protected]>
+
+	* sendmail.el (mail-interactive): Change default.
+
 2008-06-05  Reiner Steib  <[email protected]>
 
 	* README: Remove entry about nnir.el.
Index: sendmail.el
diff -u gnus/contrib/sendmail.el:7.10 gnus/contrib/sendmail.el:7.11
--- sendmail.el:7.10	Mon May 19 10:47:43 2008
+++ sendmail.el	Wed Jun 11 16:19:45 2008
@@ -1,7 +1,8 @@
 ;;; sendmail.el --- mail sending commands for Emacs.  -*- byte-compile-dynamic: t -*-
 
 ;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1998, 2000,
-;;   2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;;   2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: mail
@@ -114,7 +115,11 @@
   :group 'sendmail)
 
 ;;;###autoload
-(defcustom mail-interactive nil
+(defcustom mail-interactive t
+  ;; We used to use a default of nil rather than t, but nowadays it is very
+  ;; common for sendmail to be misconfigured, so one cannot rely on the
+  ;; bounce message to be delivered anywhere, least of all to the
+  ;; user's mailbox.
   "Non-nil means when sending a message wait for and display errors.
 nil means let mailer mail back a message to report errors."
   :type 'boolean
Index: smtpmail.el
diff -u gnus/contrib/smtpmail.el:7.14 gnus/contrib/smtpmail.el:7.15
--- smtpmail.el:7.14	Mon May 19 10:47:43 2008
+++ smtpmail.el	Wed Jun 11 16:19:45 2008
@@ -1,7 +1,7 @@
 ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail
 
-;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008  Free Software Foundation, Inc.
 
 ;; Author: Tomoji Kagatani <[email protected]>
 ;; Maintainer: Simon Josefsson <[email protected]>
@@ -82,9 +82,7 @@
 (autoload 'netrc-parse "netrc")
 (autoload 'netrc-machine "netrc")
 (autoload 'netrc-get "netrc")
-
-(eval-and-compile
-  (autoload 'auth-source-user-or-password "auth-source"))
+(autoload 'auth-source-user-or-password "auth-source")
 
 ;;;
 (defgroup smtpmail nil
@@ -548,9 +546,9 @@
 (defun smtpmail-try-auth-methods (process supported-extensions host port)
   (let* ((mechs (cdr-safe (assoc 'auth supported-extensions)))
 	 (mech (car (smtpmail-intersection smtpmail-auth-supported mechs)))
-	 (auth-user (auth-source-user-or-password 
+	 (auth-user (auth-source-user-or-password
 		     "login" host (or port "smtp")))
-	 (auth-pass (auth-source-user-or-password 
+	 (auth-pass (auth-source-user-or-password
 		     "password" host (or port "smtp")))
 	 (cred (if (and auth-user auth-pass) ; try user-auth-* before netrc-*
 		   (list host port auth-user auth-pass)