diff options
author | Gnus developers <ding@gnus.org> | 2011-09-10 23:30:53 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-09-10 23:30:53 +0000 |
commit | e21bac426b787ac0f03c3a64341ec98995ea8262 (patch) | |
tree | a3877a583cca99774594050a192fde13e57e7b78 /lisp/gnus/plstore.el | |
parent | 3199b96fc585576ffb2ced6542a2bc2d6172f510 (diff) | |
download | emacs-e21bac426b787ac0f03c3a64341ec98995ea8262.tar.gz emacs-e21bac426b787ac0f03c3a64341ec98995ea8262.tar.bz2 emacs-e21bac426b787ac0f03c3a64341ec98995ea8262.zip |
Merge changes made in Gnus trunk.
gnus.texi: Remove mentions of `recent', which are now obsolete.
(Interactive): Document `quiet'.
nnimap.el: Redo the charset handling. Let Gnus encode the names, as it does with all other backends, but decode the names immediately after getting them.
gnus-group.el (gnus-group-name-charset): Always return `utf-7' when decoding nnimap groups.
gnus.el (gnus-variable-list): Don't save `gnus-format-specs' in the newsrc file. It doesn't seem like an important optimisation any more.
nnimap.el (nnimap-transform-headers): Fix regexp to be less prone to overflows.
gnus.el (gnus-article-mark-lists): Remove `recent'.
(gnus-interactive-exit): Extend to `quiet'.
gnus-sum.el (gnus-offer-save-summaries): Use it.
gnus-art.el (gnus-treat-hide-citation-maybe): Add more doc to the string.
plstore.el (plstore--get-buffer): Silence compiler warnings by renaming function arguments from `this'.
gnus-sum.el (gnus-newsgroup-recent): Removed.
gnus-spec.el (gnus-lrm-string-p): `bidi-string-mark-left-to-right' has been renamed.
(gnus-lrm-string-p): Include RLM and PDF, too.
gnus-int.el (gnus-open-server): Make the "denied" message clearer (bug#9225).
Diffstat (limited to 'lisp/gnus/plstore.el')
-rw-r--r-- | lisp/gnus/plstore.el | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/lisp/gnus/plstore.el b/lisp/gnus/plstore.el index 5f9a61aa843..ab78e508480 100644 --- a/lisp/gnus/plstore.el +++ b/lisp/gnus/plstore.el @@ -135,38 +135,38 @@ May either be a string or a list of strings.") (message "%s...%d%%" handback (if (> total 0) (floor (* (/ current (float total)) 100)) 0)))) -(defun plstore--get-buffer (this) - (aref this 0)) +(defun plstore--get-buffer (arg) + (aref arg 0)) -(defun plstore--get-alist (this) - (aref this 1)) +(defun plstore--get-alist (arg) + (aref arg 1)) -(defun plstore--get-encrypted-data (this) - (aref this 2)) +(defun plstore--get-encrypted-data (arg) + (aref arg 2)) -(defun plstore--get-secret-alist (this) - (aref this 3)) +(defun plstore--get-secret-alist (arg) + (aref arg 3)) -(defun plstore--get-merged-alist (this) - (aref this 4)) +(defun plstore--get-merged-alist (arg) + (aref arg 4)) -(defun plstore--set-buffer (this buffer) - (aset this 0 buffer)) +(defun plstore--set-buffer (arg buffer) + (aset arg 0 buffer)) -(defun plstore--set-alist (this plist) - (aset this 1 plist)) +(defun plstore--set-alist (arg plist) + (aset arg 1 plist)) -(defun plstore--set-encrypted-data (this encrypted-data) - (aset this 2 encrypted-data)) +(defun plstore--set-encrypted-data (arg encrypted-data) + (aset arg 2 encrypted-data)) -(defun plstore--set-secret-alist (this secret-alist) - (aset this 3 secret-alist)) +(defun plstore--set-secret-alist (arg secret-alist) + (aset arg 3 secret-alist)) -(defun plstore--set-merged-alist (this merged-alist) - (aset this 4 merged-alist)) +(defun plstore--set-merged-alist (arg merged-alist) + (aset arg 4 merged-alist)) -(defun plstore-get-file (this) - (buffer-file-name (plstore--get-buffer this))) +(defun plstore-get-file (arg) + (buffer-file-name (plstore--get-buffer arg))) (defun plstore--make (&optional buffer alist encrypted-data secret-alist merged-alist) |