From Jari Aalto.

* gnus-sum.el (gnus-list-of-unread-articles): Improve active groups error
 checking and notify user.

* 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'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2755ae8..31aaeab 100644 (file)
--- 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 012b6eb..553cc90 100644 (file)
--- 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 9b1da37..7190715 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -594,7 +594,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'.