2001-07-31 Katsumi Yamaoka <yamaoka@jpl.org>

	* gnus-msg.el (gnus-post-method): Refer to `gnus-parameters'.

2001-07-31 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
	Originally from Pavel Jan\e,Bm\e(Bk <Pavel@Janik.cz>

	* gnus-agent.el (gnus-agent-make-mode-line-string): New.
	(gnus-agent-toggle-plugged): Use it.

2001-07-31  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus-start.el (gnus-startup-file-coding-system): Revert to binary.
	(gnus-ding-file-coding-system): New variable.
	(gnus-read-newsrc-el-file, gnus-save-newsrc-file)
	(gnus-slave-save-newsrc): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4280bd8..d8666ef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2001-07-31  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-msg.el (gnus-post-method): Refer to `gnus-parameters'.
+       
+2001-07-31 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       Originally from Pavel Jan\e,Bm\e(Bk <Pavel@Janik.cz>
+       
+       * gnus-agent.el (gnus-agent-make-mode-line-string): New.
+       (gnus-agent-toggle-plugged): Use it.
+
+2001-07-31  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-start.el (gnus-startup-file-coding-system): Revert to binary.
+       (gnus-ding-file-coding-system): New variable.
+       (gnus-read-newsrc-el-file, gnus-save-newsrc-file)
+       (gnus-slave-save-newsrc): Use it.
+
 2001-07-31  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-delay.el (gnus-delay-initialize): Use standard define-key

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 4592fd0..426f00b 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -310,6 +310,13 @@ If this is `ask' the hook will query the user."
        ["Add" gnus-agent-add-server t]
        ["Remove" gnus-agent-remove-server t]))))
 
+(defun gnus-agent-make-mode-line-string (string mouse2-func)
+  (if (and (fboundp 'propertize)
+          (fboundp 'make-mode-line-mouse2-map))
+      (propertize string 'local-map
+                 (make-mode-line-mouse2-map mouse2-func))
+    string))
+
 (defun gnus-agent-toggle-plugged (plugged)
   "Toggle whether Gnus is unplugged or not."
   (interactive (list (not gnus-plugged)))
@@ -318,11 +325,15 @@ If this is `ask' the hook will query the user."
        (setq gnus-plugged plugged)
        (gnus-agent-possibly-synchronize-flags)
        (gnus-run-hooks 'gnus-agent-plugged-hook)
-       (setcar (cdr gnus-agent-mode-status) " Plugged"))
+       (setcar (cdr gnus-agent-mode-status) 
+               (gnus-agent-make-mode-line-string " Plugged"
+                                                 'gnus-agent-toggle-plugged)))
     (gnus-agent-close-connections)
     (setq gnus-plugged plugged)
     (gnus-run-hooks 'gnus-agent-unplugged-hook)
-    (setcar (cdr gnus-agent-mode-status) " Unplugged"))
+    (setcar (cdr gnus-agent-mode-status) 
+           (gnus-agent-make-mode-line-string " Unplugged"
+                                             'gnus-agent-toggle-plugged)))
   (set-buffer-modified-p t))
 
 (defun gnus-agent-close-connections ()

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 1f332e0..fdee9c7 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -649,7 +649,9 @@ header line with the old Message-ID."
 (defun gnus-post-method (arg group &optional silent)
   "Return the posting method based on GROUP and ARG.
 If SILENT, don't prompt the user."
-  (let ((group-method (gnus-find-method-for-group group)))
+  (let ((group-method
+        (or (car (gnus-group-find-parameter group 'gnus-post-method t))
+            (gnus-find-method-for-group group))))
     (cond
      ;; If the group-method is nil (which shouldn't happen) we use
      ;; the default method.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 2f9257a..b9665a5 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -401,10 +401,13 @@ Can be used to turn version control on or off."
   :group 'gnus-newsrc
   :type 'boolean)
 
-(defvar gnus-startup-file-coding-system mm-universal-coding-system
+;;; Internal variables
+
+(defvar gnus-startup-file-coding-system 'binary
   "*Coding system for startup file.")
 
-;;; Internal variables
+(defvar gnus-ding-file-coding-system mm-universal-coding-system
+  "*Coding system for ding file.")
 
 (defvar gnus-newsrc-file-version nil)
 (defvar gnus-override-subscribe-method nil)
@@ -2071,7 +2074,7 @@ If FORCE is non-nil, the .newsrc file is read."
     (gnus-message 5 "Reading %s..." ding-file)
     (let (gnus-newsrc-assoc)
       (condition-case nil
-         (let ((coding-system-for-read gnus-startup-file-coding-system))
+         (let ((coding-system-for-read gnus-ding-file-coding-system))
            (load ding-file t t t))
        (error
         (ding)
@@ -2441,7 +2444,7 @@ If FORCE is non-nil, the .newsrc file is read."
          (gnus-message 5 "Saving %s.eld..." gnus-current-startup-file)
          (gnus-gnus-to-quick-newsrc-format)
          (gnus-run-hooks 'gnus-save-quick-newsrc-hook)
-         (let ((coding-system-for-write gnus-startup-file-coding-system))
+         (let ((coding-system-for-write gnus-ding-file-coding-system))
            (save-buffer))
          (kill-buffer (current-buffer))
          (gnus-message
@@ -2567,7 +2570,7 @@ If FORCE is non-nil, the .newsrc file is read."
           (make-temp-name (concat gnus-current-startup-file "-slave-")))
          (modes (ignore-errors
                   (file-modes (concat gnus-current-startup-file ".eld")))))
-      (let ((coding-system-for-write gnus-startup-file-coding-system))
+      (let ((coding-system-for-write gnus-ding-file-coding-system))
        (gnus-write-buffer slave-name))
       (when modes
        (set-file-modes slave-name modes)))))

diff --git a/lisp/lpath.el b/lisp/lpath.el
index aab6cfd..b8cf8fa 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -22,6 +22,7 @@
               mail-aliases-setup mm-copy-tree
               mule-write-region-no-coding-system put-image
               ring-elements
+              propertize make-mode-line-mouse2-map
               rmail-select-summary rmail-summary-exists rmail-update-summary
               sc-cite-regexp set-font-family set-font-size temp-directory
               string-as-multibyte