Commit b90a6149 authored by Miles Bader's avatar Miles Bader
Browse files

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 156-159)

   - Merge from emacs--devo--0
   - Update from CVS

2006-10-29  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/gnus-sum.el (gnus-set-mode-line): Quote % in group name.

2006-10-28  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/gnus/gnus-agent.el (gnus-agent-make-mode-line-string): Make it compatible
   with Emacs 21 and XEmacs.

2006-10-26  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/gnus/mm-view.el: Add interactive arg to html2text autoload.

2006-10-25  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/gnus-sum.el (gnus-summary-move-article): Use no-encode for `B B'.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-487
parent fdcd003e
2006-10-29 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-set-mode-line): Quote % in group name.
2006-10-28 Reiner Steib <Reiner.Steib@gmx.de>
* gnus-agent.el (gnus-agent-make-mode-line-string): Make it compatible
with Emacs 21 and XEmacs.
2006-10-26 Reiner Steib <Reiner.Steib@gmx.de>
* mm-view.el: Add interactive arg to html2text autoload.
2006-10-25 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-summary-move-article): Use no-encode for `B B'.
2006-10-20 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-group.el (gnus-group-make-doc-group): Work for non-ASCII group
......@@ -12,6 +29,7 @@
2006-10-19 Reiner Steib <Reiner.Steib@gmx.de>
* gnus.el (gnus-mime): Remove unused custom group.
(gnus-getenv-nntpserver, gnus-select-method): Autoload.
2006-10-13 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
......
......@@ -577,7 +577,17 @@ manipulated as follows:
(fboundp 'make-mode-line-mouse-map))
(propertize string 'local-map
(make-mode-line-mouse-map mouse-button mouse-func)
'mouse-face 'mode-line-highlight)
'mouse-face
(cond ((and (featurep 'xemacs)
;; XEmacs' `facep' only checks for a face
;; object, not for a face name, so it's useless
;; to check with `facep'.
(find-face 'modeline))
'modeline)
((facep 'mode-line-highlight) ;; Emacs 22
'mode-line-highlight)
((facep 'mode-line) ;; Emacs 21
'mode-line)) )
string))
(defun gnus-agent-toggle-plugged (set-to)
......
......@@ -5711,8 +5711,9 @@ If WHERE is `summary', the summary mode line format will be used."
(let* ((mformat (symbol-value
(intern
(format "gnus-%s-mode-line-format-spec" where))))
(gnus-tmp-group-name (gnus-group-decoded-name
gnus-newsgroup-name))
(gnus-tmp-group-name (gnus-mode-string-quote
(gnus-group-decoded-name
gnus-newsgroup-name)))
(gnus-tmp-article-number (or gnus-current-article 0))
(gnus-tmp-unread gnus-newsgroup-unreads)
(gnus-tmp-unread-and-unticked (length gnus-newsgroup-unreads))
......@@ -9153,7 +9154,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
(gnus-request-article-this-buffer article gnus-newsgroup-name)
(when (consp (setq art-group
(gnus-request-accept-article
to-newsgroup select-method (not articles))))
to-newsgroup select-method (not articles) t)))
(setq new-xref (concat new-xref " " (car art-group)
":"
(number-to-string (cdr art-group))))
......@@ -9161,7 +9162,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
;; it and replace the new article.
(nnheader-replace-header "Xref" new-xref)
(gnus-request-replace-article
(cdr art-group) to-newsgroup (current-buffer))
(cdr art-group) to-newsgroup (current-buffer) t)
art-group))))))
(cond
((not art-group)
......@@ -9259,7 +9260,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
(gnus-request-article-this-buffer article gnus-newsgroup-name)
(nnheader-replace-header "Xref" new-xref)
(gnus-request-replace-article
article gnus-newsgroup-name (current-buffer))))
article gnus-newsgroup-name (current-buffer) t)))
;; run the move/copy/crosspost/respool hook
(run-hook-with-args 'gnus-summary-article-move-hook
......
......@@ -36,7 +36,7 @@
(autoload 'vcard-parse-string "vcard")
(autoload 'vcard-format-string "vcard")
(autoload 'fill-flowed "flow-fill")
(autoload 'html2text "html2text")
(autoload 'html2text "html2text" nil t)
(unless (fboundp 'diff-mode)
(autoload 'diff-mode "diff-mode" "" t nil)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment