* gnus-start.el (gnus-close-all-servers): New function.

* gnus-srvr.el (gnus-server-close-all-servers): Clean up.
(gnus-server-remove-denials): Clean up.

* gnus-sum.el (gnus-summary-sort-by-original): New command and
keystroke.

* message.el (message-send-news): Message where we are sending.
(message-send-mail): Ditto.

* gnus.el (gnus-server-string): New function.

* gnus-sum.el (gnus-summary-up-thread): Doc fix.

* mm-decode.el (mm-default-directory): Customized.
(mm-tmp-directory): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2b6645..8280c4e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,25 @@
+2001-04-01 00:37:14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-start.el (gnus-close-all-servers): New function.
+
+       * gnus-srvr.el (gnus-server-close-all-servers): Clean up.
+       (gnus-server-remove-denials): Clean up.
+
+       * gnus-sum.el (gnus-summary-sort-by-original): New command and
+       keystroke. 
+
 2001-03-31 02:56:55  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-send-news): Message where we are sending.
+       (message-send-mail): Ditto.
+
+       * gnus.el (gnus-server-string): New function.
+
+       * gnus-sum.el (gnus-summary-up-thread): Doc fix.
+
+       * mm-decode.el (mm-default-directory): Customized.
+       (mm-tmp-directory): Ditto.
+
        * gnus-sum.el (gnus-summary-catchup-and-exit): Doc fix. 
        (gnus-get-newsgroup-headers): Return -1 for articles without Lines
        or Chars. 

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 896464d..9d5648f 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -407,9 +407,8 @@ The following commands are available:
 (defun gnus-server-close-all-servers ()
   "Close all servers."
   (interactive)
-  (let ((servers gnus-inserted-opened-servers))
-    (while servers
-      (gnus-server-close-server (car (pop servers))))))
+  (dolist (server gnus-inserted-opened-servers)
+    (gnus-server-close-server (car server))))
 
 (defun gnus-server-deny-server (server)
   "Make sure SERVER will never be attempted opened."
@@ -425,11 +424,9 @@ The following commands are available:
 (defun gnus-server-remove-denials ()
   "Make all denied servers into closed servers."
   (interactive)
-  (let ((servers gnus-opened-servers))
-    (while servers
-      (when (eq (nth 1 (car servers)) 'denied)
-       (setcar (nthcdr 1 (car servers)) 'closed))
-      (setq servers (cdr servers))))
+  (dolist (server gnus-opened-servers)
+    (when (eq (nth 1 server) 'denied)
+      (setcar (nthcdr 1 server) 'closed)))
   (gnus-server-list-servers))
 
 (defun gnus-server-copy-server (from to)

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 0b86224..c89cce5 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -602,6 +602,12 @@ the first newsgroup."
 (defvar nnoo-state-alist)
 (defvar gnus-current-select-method)
 
+(defun gnus-close-all-servers ()
+  "Close all servers."
+  (interactive)
+  (dolist (server gnus-opened-servers)
+    (gnus-close-server server)))
+
 (defun gnus-clear-system ()
   "Clear all variables and buffers."
   ;; Clear Gnus variables.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index fa31f57..b7b4b30 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1441,6 +1441,7 @@ increase the score of each group you read."
     "\C-c\C-s\C-s" gnus-summary-sort-by-subject
     "\C-c\C-s\C-d" gnus-summary-sort-by-date
     "\C-c\C-s\C-i" gnus-summary-sort-by-score
+    "\C-c\C-s\C-o" gnus-summary-sort-by-original
     "=" gnus-summary-expand-window
     "\C-x\C-s" gnus-summary-reselect-current-group
     "\M-g" gnus-summary-rescan-group
@@ -2066,7 +2067,8 @@ increase the score of each group you read."
        ["Sort by date" gnus-summary-sort-by-date t]
        ["Sort by score" gnus-summary-sort-by-score t]
        ["Sort by lines" gnus-summary-sort-by-lines t]
-       ["Sort by characters" gnus-summary-sort-by-chars t])
+       ["Sort by characters" gnus-summary-sort-by-chars t]
+       ["Original sort" gnus-summary-sort-by-original t])
        ("Help"
        ["Fetch group FAQ" gnus-summary-fetch-faq t]
        ["Describe group" gnus-summary-describe-group t]
@@ -9287,7 +9289,7 @@ taken."
 
 (defun gnus-summary-up-thread (n)
   "Go up thread N steps.
-If N is negative, go up instead.
+If N is negative, go down instead.
 Returns the difference between N and how many steps down that were
 taken."
   (interactive "p")
@@ -9376,6 +9378,18 @@ Argument REVERSE means reverse order."
   (interactive "P")
   (gnus-summary-sort 'chars reverse))
 
+(defun gnus-summary-sort-by-original (&optional reverse)
+  "Sort the summary buffer using the default sorting method.
+Argument REVERSE means reverse order."
+  (interactive "P")
+  (let* ((buffer-read-only)
+        (gnus-summary-prepare-hook nil))
+    ;; We do the sorting by regenerating the threads.
+    (gnus-summary-prepare)
+    ;; Hide subthreads if needed.
+    (when (and gnus-show-threads gnus-thread-hide-subtree)
+      (gnus-summary-hide-all-threads))))
+
 (defun gnus-summary-sort (predicate reverse)
   "Sort summary buffer by PREDICATE.  REVERSE means reverse order."
   (let* ((thread (intern (format "gnus-thread-sort-by-%s" predicate)))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index ec50da0..93beb9b 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2991,6 +2991,15 @@ If NEWSGROUP is nil, return the global kill file name instead."
          (list (intern server) "")))
     gnus-select-method))
 
+(defun gnus-server-string (server)
+  "Return a readable string that describes SERVER."
+  (let* ((server (gnus-server-to-method server))
+        (address (nth 1 server)))
+    (if (and address
+            (not (zerop (length address))))
+       (format "%s via %s" address (car server))
+      (format "%s" (car server)))))
+
 (defun gnus-find-method-for-group (group &optional info)
   "Find the select method that GROUP uses."
   (or gnus-override-method

diff --git a/lisp/message.el b/lisp/message.el
index 15044c4..56b6347 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1093,6 +1093,7 @@ Except if it is nil, use Gnus native MUA; if it is t, use
   (autoload 'gnus-open-server "gnus-int")
   (autoload 'gnus-request-post "gnus-int")
   (autoload 'gnus-alive-p "gnus-util")
+  (autoload 'gnus-server-string "gnus")
   (autoload 'gnus-group-name-charset "gnus-group")
   (autoload 'rmail-output "rmailout"))
 
@@ -2509,6 +2510,7 @@ It should typically alter the sending method in some way or other."
                  (< (point-max) message-send-mail-partially-limit)
                  (not (y-or-n-p "The message size is too large, should it be sent partially? ")))
              (mm-with-unibyte-current-buffer
+               (message "Sending via mail...")
                (funcall message-send-mail-function))
            (message-send-mail-partially)))
       (kill-buffer tembuf))
@@ -2712,6 +2714,7 @@ to find out how to use this."
                (backward-char 1))
              (run-hooks 'message-send-news-hook)
              (gnus-open-server method)
+             (message "Sending news with %s..." (gnus-server-string method))
              (setq result (let ((mail-header-separator ""))
                             (gnus-request-post method))))
          (kill-buffer tembuf))

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 740f323..d09669b 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -222,17 +222,25 @@ to:
   :type '(repeat string)
   :group 'mime-display)
 
-(defvar mm-tmp-directory
+(defcustom mm-tmp-directory
   (cond ((fboundp 'temp-directory) (temp-directory))
        ((boundp 'temporary-file-directory) temporary-file-directory)
        ("/tmp/"))
-  "Where mm will store its temporary files.")
+  "Where mm will store its temporary files."
+  :type 'directory
+  :group 'mime-display)
 
 (defcustom mm-inline-large-images nil
   "If non-nil, then all images fit in the buffer."
   :type 'boolean
   :group 'mime-display)
 
+(defcustom mm-default-directory nil
+  "The default directory where mm will save files.
+If not set, `default-directory' will be used."
+  :type 'directory
+  :group 'mime-display)
+
 ;;; Internal variables.
 
 (defvar mm-dissection-list nil)
@@ -801,8 +809,6 @@ external if displayed external."
            (set-buffer cur)
            (insert-buffer-substring temp)))))))
 
-(defvar mm-default-directory nil)
-
 (defun mm-save-part (handle)
   "Write HANDLE to a file."
   (let* ((name (mail-content-type-get (mm-handle-type handle) 'name))