[gnus git] branch master updated: n0-17-70-gf3815ce =2= Refer to `gnus-registry-article-marks-to-{chars,names}' in user-format example. ; Use `gnus-registry-article-marks-to-chars' and `gnus-registry-article-marks-to-names' instead of `gnus-registry-user-format-function-{M,M2}'.
Ted Zlatanov <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via f3815ce84c470cbc22114291a1cfe4a5d87c54dc (commit)
via 59d6964e9c53c26ac930d41180c29f57a7e80a37 (commit)
from ef15a6ec0e45256206c3ebbdbf95675a088e3283 (commit)
- Log -----------------------------------------------------------------
commit f3815ce84c470cbc22114291a1cfe4a5d87c54dc
Author: Ted Zlatanov <[email protected]>
Date: Tue May 31 11:52:03 2011 -0500
Refer to `gnus-registry-article-marks-to-{chars,names}' in user-format example.
* gnus.texi (Store custom flags and keywords): Refer to
`gnus-registry-article-marks-to-{chars,names}' instead of
`gnus-registry-user-format-function-{M,M2}'.
diff --git a/texi/ChangeLog b/texi/ChangeLog
index b0ea7fc..2b31a56 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,9 @@
+2011-05-31 Teodor Zlatanov <[email protected]>
+
+ * gnus.texi (Store custom flags and keywords): Refer to
+ `gnus-registry-article-marks-to-{chars,names}' instead of
+ `gnus-registry-user-format-function-{M,M2}'.
+
2011-05-18 Teodor Zlatanov <[email protected]>
* gnus.texi (Gnus Registry Setup): Rename from "Setup".
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 2068c24..a61b5b1 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -26094,10 +26094,10 @@ their @code{:char} property, or showing the marks as full strings.
@lisp
;; show the marks as single characters (see the :char property in
;; `gnus-registry-marks'):
-;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M)
+;; (defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-chars)
;; show the marks by name (see `gnus-registry-marks'):
-;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M2)
+;; (defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-names)
@end lisp
commit 59d6964e9c53c26ac930d41180c29f57a7e80a37
Author: Ted Zlatanov <[email protected]>
Date: Tue May 31 11:48:34 2011 -0500
Use `gnus-registry-article-marks-to-chars' and `gnus-registry-article-marks-to-names' instead of `gnus-registry-user-format-function-{M,M2}'.
* gnus-registry.el (gnus-registry-article-marks-to-chars): Rename from
`gnus-registry-user-format-function-M' and declare the latter obsolete.
(gnus-registry-article-marks-to-names): Rename from
`gnus-registry-user-format-function-M2'.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0dc6f60..5e4f7d7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-05-31 Teodor Zlatanov <[email protected]>
+
+ * gnus-registry.el (gnus-registry-article-marks-to-chars): Rename from
+ `gnus-registry-user-format-function-M' and declare the latter obsolete.
+ (gnus-registry-article-marks-to-names): Rename from
+ `gnus-registry-user-format-function-M2'.
+
2011-05-31 Katsumi Yamaoka <[email protected]>
* gnus-sum.el (gnus-summary-exit): Make sure to kill article buffer in
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index e0efbaf..f6c0daa 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -62,10 +62,10 @@
;; show the marks as single characters (see the :char property in
;; `gnus-registry-marks'):
-;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M)
+;; (defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-chars)
;; show the marks by name (see `gnus-registry-marks'):
-;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M2)
+;; (defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-names)
;; TODO:
@@ -897,9 +897,12 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
nil
(cons "Registry Marks" gnus-registry-misc-menus))))))
+(make-obsolete 'gnus-registry-user-format-function-M
+ 'gnus-registry-article-marks-to-chars "24.1") ?
+
;; use like this:
-;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M)
-(defun gnus-registry-user-format-function-M (headers)
+;; (defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-chars)
+(defun gnus-registry-article-marks-to-chars (headers)
"Show the marks for an article by the :char property"
(let* ((id (mail-header-message-id headers))
(marks (when id (gnus-registry-get-id-key id 'mark))))
@@ -911,8 +914,8 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
marks "")))
;; use like this:
-;; (defalias 'gnus-user-format-function-M 'gnus-registry-user-format-function-M2)
-(defun gnus-registry-user-format-function-M2 (headers)
+;; (defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-names)
+(defun gnus-registry-article-marks-to-names (headers)
"Show the marks for an article by name"
(let* ((id (mail-header-message-id headers))
(marks (when id (gnus-registry-get-id-key id 'mark))))
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 7 +++++++
lisp/gnus-registry.el | 15 +++++++++------
texi/ChangeLog | 6 ++++++
texi/gnus.texi | 4 ++--
4 files changed, 24 insertions(+), 8 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project