Mercurial > emacs
comparison lisp/gnus/gnus-registry.el @ 110661:2b8ece636433
Merge changes made in Gnus trunk.
nndraft.el (nndraft-request-expire-articles): Use the group name instead if "nndraft".
gnus.texi (Using IMAP): Remove the @acronyms from the headings.
nnregistry.el: Added.
nnimap.el (nnimap-insert-partial-structure): Be way more permissive when interpreting the structures.
GNUS-NEWS: Minor error in GNUS-NEWS - password-cache.el.
nnimap.el (nnimap-request-accept-article): Add \r\n to the lines to make this work with Cyrus.
gnus-registry.el: Don't prompt on load, which makes it impossible to build Gnus.
gnus-gravatar.el: Add gnus-gravatar-properties.
gnus-agent.el, gnus-art.el, gnus-bookmark.el, gnus-dired.el, gnus-group.el,\
gnus-int.el, gnus-msg.el, gnus-registry.el, gnus-score.el, gnus-srvr.el,\
gnus-sum.el, gnus-topic.el, gnus-util.el, gnus.el, mm-decode.el, mm-util.el,\
mm-view.el, mml-smime.el, mml.el, nnmairix.el, nnrss.el, smime.el:\
Introduce gnus-completing-read.
gnus-util.el: Make completing-read function configurable.
gnus-util.el: Add requires and fix history for iswitchb.
webmail.el: Remove netscape/my-deja, since they no longer exist.
gnus.el (gnus-local-domain): Declare variable obsolete.
nnimap.el (nnimap-insert-partial-structure): Get the type from the correct slot, too.
pop3.el (pop3-send-streaming-command, pop3-stream-length): New variable.
nnimap.el (nnimap-open-connection): Revert the auto-network->starttls code.
nnimap.el (nnimap-request-set-mark): Erase the buffer before issuing commands.
nnimap.el (nnimap-split-rule): Mark as obsolete.
gnus-sum.el (gnus-valid-move-group-p): Make sure that `group' is a symbol.
nnimap.el (nnimap-split-incoming-mail): Allow `default' as nnimap-split-methods value.
nnimap.el (nnimap-request-article): Downcase the NILs so that they are nil.
nndoc.el (nndoc-retrieve-groups): New function.
gnus.texi: Fix Gravatar documentation.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Thu, 30 Sep 2010 08:39:23 +0000 |
parents | f2e111723c3a |
children | 3b9bd3888ee9 |
comparison
equal
deleted
inserted
replaced
110660:4b5aaeebe785 | 110661:2b8ece636433 |
---|---|
855 nil))) | 855 nil))) |
856 marks)))) | 856 marks)))) |
857 | 857 |
858 (defun gnus-registry-read-mark () | 858 (defun gnus-registry-read-mark () |
859 "Read a mark name from the user with completion." | 859 "Read a mark name from the user with completion." |
860 (let ((mark (gnus-completing-read-with-default | 860 (let ((mark (gnus-completing-read |
861 (symbol-name gnus-registry-default-mark) | 861 "Label" |
862 "Label" | 862 (mapcar 'symbol-name (mapcar 'car gnus-registry-marks)) |
863 (mapcar (lambda (x) ; completion list | 863 nil nil nil |
864 (cons (symbol-name (car-safe x)) (car-safe x))) | 864 (symbol-name gnus-registry-default-mark)))) |
865 gnus-registry-marks)))) | |
866 (when (stringp mark) | 865 (when (stringp mark) |
867 (intern mark)))) | 866 (intern mark)))) |
868 | 867 |
869 (defun gnus-registry-set-article-mark (&rest articles) | 868 (defun gnus-registry-set-article-mark (&rest articles) |
870 "Apply a mark to process-marked ARTICLES." | 869 "Apply a mark to process-marked ARTICLES." |
1171 ;; we just set gnus-registry-install to t, so initialize the registry! | 1170 ;; we just set gnus-registry-install to t, so initialize the registry! |
1172 (gnus-registry-initialize))) | 1171 (gnus-registry-initialize))) |
1173 ;;; we could call it here: (customize-variable 'gnus-registry-install) | 1172 ;;; we could call it here: (customize-variable 'gnus-registry-install) |
1174 gnus-registry-install) | 1173 gnus-registry-install) |
1175 | 1174 |
1176 (when (or (eq gnus-registry-install t) | |
1177 (gnus-registry-install-p)) | |
1178 (gnus-registry-initialize)) | |
1179 | |
1180 ;; TODO: a few things | 1175 ;; TODO: a few things |
1181 | 1176 |
1182 (provide 'gnus-registry) | 1177 (provide 'gnus-registry) |
1183 | 1178 |
1184 ;;; gnus-registry.el ends here | 1179 ;;; gnus-registry.el ends here |