diff options
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) |