diff options
| author | Gnus developers | 2011-03-12 08:53:34 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2011-03-12 08:53:34 +0000 |
| commit | a276370e0a8c9434ce0ae2ba72fa6acd69570a0d (patch) | |
| tree | 4da238702405cb5c35d87140e5a976ade227f49e | |
| parent | 946425995f270514be4d2beca6941c33a70d440e (diff) | |
| download | emacs-a276370e0a8c9434ce0ae2ba72fa6acd69570a0d.tar.gz emacs-a276370e0a8c9434ce0ae2ba72fa6acd69570a0d.zip | |
Merge changes made in Gnus trunk.
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".
| -rw-r--r-- | lisp/gnus/ChangeLog | 12 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sync.el | 12 | ||||
| -rw-r--r-- | lisp/gnus/mm-uu.el | 6 |
3 files changed, 25 insertions, 5 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index dbd52c5fece..2737004615e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,15 @@ | |||
| 1 | 2011-03-11 Teodor Zlatanov <tzz@lifelogs.com> | ||
| 2 | |||
| 3 | * gnus-sync.el (gnus-sync-install-hooks, gnus-sync-unload-hook): Don't | ||
| 4 | install `gnus-sync-read' to any hooks by default. It's buggy. The | ||
| 5 | user will have to run `gnus-sync-read' manually and wait for Cloudy | ||
| 6 | Gnus. | ||
| 7 | |||
| 8 | 2011-03-11 Julien Danjou <julien@danjou.info> | ||
| 9 | |||
| 10 | * mm-uu.el (mm-uu-type-alist): Add support for diff starting with "=== | ||
| 11 | modified file". | ||
| 12 | |||
| 1 | 2011-03-09 Teodor Zlatanov <tzz@lifelogs.com> | 13 | 2011-03-09 Teodor Zlatanov <tzz@lifelogs.com> |
| 2 | 14 | ||
| 3 | * auth-source.el (auth-source-read-char-choice): New function to read a | 15 | * auth-source.el (auth-source-read-char-choice): New function to read a |
diff --git a/lisp/gnus/gnus-sync.el b/lisp/gnus/gnus-sync.el index 892b10a0d0e..fbdacdd2fbe 100644 --- a/lisp/gnus/gnus-sync.el +++ b/lisp/gnus/gnus-sync.el | |||
| @@ -25,7 +25,8 @@ | |||
| 25 | ;; This is the gnus-sync.el package. | 25 | ;; This is the gnus-sync.el package. |
| 26 | 26 | ||
| 27 | ;; It's due for a rewrite using gnus-after-set-mark-hook and | 27 | ;; It's due for a rewrite using gnus-after-set-mark-hook and |
| 28 | ;; gnus-before-update-mark-hook. Until then please consider it | 28 | ;; gnus-before-update-mark-hook, and my plan is to do this once No |
| 29 | ;; Gnus development is done. Until then please consider it | ||
| 29 | ;; experimental. | 30 | ;; experimental. |
| 30 | 31 | ||
| 31 | ;; Put this in your startup file (~/.gnus.el for instance) | 32 | ;; Put this in your startup file (~/.gnus.el for instance) |
| @@ -42,7 +43,8 @@ | |||
| 42 | 43 | ||
| 43 | ;; TODO: | 44 | ;; TODO: |
| 44 | 45 | ||
| 45 | ;; - after gnus-sync-read, the message counts are wrong | 46 | ;; - after gnus-sync-read, the message counts are wrong. So it's not |
| 47 | ;; run automatically, you have to call it with M-x gnus-sync-read | ||
| 46 | 48 | ||
| 47 | ;; - use gnus-after-set-mark-hook and gnus-before-update-mark-hook to | 49 | ;; - use gnus-after-set-mark-hook and gnus-before-update-mark-hook to |
| 48 | ;; catch the mark updates | 50 | ;; catch the mark updates |
| @@ -220,13 +222,13 @@ synchronized, I believe). Also see `gnus-variable-list'." | |||
| 220 | "Install the sync hooks." | 222 | "Install the sync hooks." |
| 221 | (interactive) | 223 | (interactive) |
| 222 | ;; (add-hook 'gnus-get-new-news-hook 'gnus-sync-read) | 224 | ;; (add-hook 'gnus-get-new-news-hook 'gnus-sync-read) |
| 223 | (add-hook 'gnus-save-newsrc-hook 'gnus-sync-save) | 225 | ;; (add-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read) |
| 224 | (add-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read)) | 226 | (add-hook 'gnus-save-newsrc-hook 'gnus-sync-save)) |
| 225 | 227 | ||
| 226 | (defun gnus-sync-unload-hook () | 228 | (defun gnus-sync-unload-hook () |
| 227 | "Uninstall the sync hooks." | 229 | "Uninstall the sync hooks." |
| 228 | (interactive) | 230 | (interactive) |
| 229 | ;; (remove-hook 'gnus-get-new-news-hook 'gnus-sync-read) | 231 | (remove-hook 'gnus-get-new-news-hook 'gnus-sync-read) |
| 230 | (remove-hook 'gnus-save-newsrc-hook 'gnus-sync-save) | 232 | (remove-hook 'gnus-save-newsrc-hook 'gnus-sync-save) |
| 231 | (remove-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read)) | 233 | (remove-hook 'gnus-read-newsrc-el-hook 'gnus-sync-read)) |
| 232 | 234 | ||
diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el index 14b44198303..96dce48a774 100644 --- a/lisp/gnus/mm-uu.el +++ b/lisp/gnus/mm-uu.el | |||
| @@ -158,6 +158,12 @@ This can be either \"inline\" or \"attachment\".") | |||
| 158 | mm-uu-diff-extract | 158 | mm-uu-diff-extract |
| 159 | nil | 159 | nil |
| 160 | mm-uu-diff-test) | 160 | mm-uu-diff-test) |
| 161 | (diff | ||
| 162 | "^=== modified file " | ||
| 163 | nil | ||
| 164 | mm-uu-diff-extract | ||
| 165 | nil | ||
| 166 | mm-uu-diff-test) | ||
| 161 | (git-format-patch | 167 | (git-format-patch |
| 162 | "^diff --git " | 168 | "^diff --git " |
| 163 | "^-- " | 169 | "^-- " |