andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge changes made in Gnus trunk.

Browse source 
gnus-sync.el (gnus-sync-install-hooks, gnus-sync-unload-hook): Don't install `gnus-sync-read' to any hooks by default.  It's buggy.  The user will have to run `gnus-sync-read' manually and wait for Cloudy Gnus.
mm-uu.el (mm-uu-type-alist): Add support for diff starting with "=== modified file".
This commit is contained in:
Gnus developers 2011-03-12 08:53:34 +00:00 • committed by Katsumi Yamaoka
parent 946425995f
commit a276370e0a
3 changed files with 25 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/gnus/ChangeLog
View file

@ -1,3 +1,15 @@
2011-03-11 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-sync.el (gnus-sync-install-hooks, gnus-sync-unload-hook): Don't
install `gnus-sync-read' to any hooks by default. It's buggy. The
user will have to run `gnus-sync-read' manually and wait for Cloudy
Gnus.
2011-03-11 Julien Danjou <julien@danjou.info>
* mm-uu.el (mm-uu-type-alist): Add support for diff starting with "===
modified file".
2011-03-09 Teodor Zlatanov <tzz@lifelogs.com>
* auth-source.el (auth-source-read-char-choice): New function to read a

12
lisp/gnus/gnus-sync.el
View file

@ -25,7 +25,8 @@
;; This is the gnus-sync.el package.
;; It's due for a rewrite using gnus-after-set-mark-hook and
;; gnus-before-update-mark-hook. Until then please consider it
;; gnus-before-update-mark-hook, and my plan is to do this once No
;; Gnus development is done. Until then please consider it
;; experimental.
;; Put this in your startup file (~/.gnus.el for instance)
@ -42,7 +43,8 @@
;; TODO:
;; - after gnus-sync-read, the message counts are wrong
;; - after gnus-sync-read, the message counts are wrong. So it's not
;; run automatically, you have to call it with M-x gnus-sync-read
;; - use gnus-after-set-mark-hook and gnus-before-update-mark-hook to
;; catch the mark updates
@ -220,13 +222,13 @@ synchronized, I believe). Also see `gnus-variable-list'."
"Install the sync hooks."
(interactive)
;; (add-hook 'gnus-get-new-news-hook 'gnus-sync-read)
(add-hook 'gnus-save-newsrc-hook 'gnus-sync-save)
(add-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read))
;; (add-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read)
(add-hook 'gnus-save-newsrc-hook 'gnus-sync-save))
(defun gnus-sync-unload-hook ()
"Uninstall the sync hooks."
(interactive)
;; (remove-hook 'gnus-get-new-news-hook 'gnus-sync-read)
(remove-hook 'gnus-get-new-news-hook 'gnus-sync-read)
(remove-hook 'gnus-save-newsrc-hook 'gnus-sync-save)
(remove-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read))

6
lisp/gnus/mm-uu.el
View file

@ -158,6 +158,12 @@ This can be either \"inline\" or \"attachment\".")
mm-uu-diff-extract
nil
mm-uu-diff-test)
(diff
"^=== modified file "
nil
mm-uu-diff-extract
nil
mm-uu-diff-test)
(git-format-patch
"^diff --git "
"^-- "