From: yamaoka <yamaoka>
Date: Wed, 2 Feb 2005 01:37:06 +0000 (+0000)
Subject: Synch to No Gnus 200502020136.
X-Git-Tag: t-gnus-6_17_4-quimby-~574
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df88258c1bfbe13a5efd7eb3b60d69e31a4bb835;p=elisp%2Fgnus.git-

Synch to No Gnus 200502020136.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04c9559..510ca38 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-01-29  Jari Aalto  <jari.aalto@cante.net>
+
+	* gnus-sum.el (gnus-list-of-unread-articles): Improve active
+	groups error checking and notify user.
+
+2004-09-04  Jari Aalto  <jari.aalto@poboxes.com>
+
+	* message.el (message-send-mail-function): Check existence of
+	sendmail-program first before using default value
+	`message-send-mail-with-sendmail'.  Otherwise use more generic
+	`smtpmail-send-it'.
+
 2005-02-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* nntp.el (nntp-request-update-info): Always return nil.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 6f6608d..b5599a3 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6429,7 +6429,8 @@ displayed, no centering will be performed."
 (defun gnus-list-of-unread-articles (group)
   (let* ((read (gnus-info-read (gnus-get-info group)))
 	 (active (or (gnus-active group) (gnus-activate-group group)))
-	 (last (cdr active))
+	 (last (or (cdr active)
+		   (error "Group %s couldn't be activated " group)))
 	 first nlast unread)
     ;; If none are read, then all are unread.
     (if (not read)
diff --git a/lisp/message.el b/lisp/message.el
index 8f67848..9b2329c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -715,7 +715,20 @@ Done before generating the new subject of a forward."
 
 ;; Useful to set in site-init.el
 ;;;###autoload
-(defcustom message-send-mail-function 'message-send-mail-with-sendmail
+(defcustom message-send-mail-function
+  (let ((program (if (boundp 'sendmail-program)
+		     ;; see paths.el
+		     sendmail-program)))
+    (cond
+     ((and program
+	   (string-match "/" program) ;; Skip path
+	   (file-executable-p program))
+      'message-send-mail-with-sendmail)
+     ((and program
+	   (executable-find program))
+      'message-send-mail-with-sendmail)
+     (t
+      'smtpmail-send-it)))
   "Function to call to send the current buffer as mail.
 The headers should be delimited by a line whose contents match the
 variable `mail-header-separator'.