procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/gnus/nnimap.el: Clean up "unused var" warnings

Browse source 
(auth-source-creation-prompts): Declare.
(nnimap-retrieve-headers, nnimap-status-message)
(nnimap-request-create-group, nnimap-request-delete-group)
(nnimap-close-group, nnimap-request-move-article)
(nnimap-request-accept-article, nnimap-request-newgroups)
(nnimap-request-post, nnimap-dummy-active-number)
(nnimap-save-mail-spec, nnimap-get-groups): Add _ to unused vars.
(nnimap-parse-flags): Remove unused var `p'.
(nnimap-retrieve-group-data-early): Remove unused var `groups'.
(nnimap-flags-to-marks): Remove unused var `totalp'.
This commit is contained in:
Stefan Monnier 2015-07-10 16:17:13 -04:00
parent 8badbad184
commit 83d824bc40
1 changed files with 19 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
lisp/gnus/nnimap.el
View file

@ -182,7 +182,7 @@ textual parts.")
params)
(format "%s" (nreverse params))))
(deffoo nnimap-retrieve-headers (articles &optional group server fetch-old)
(deffoo nnimap-retrieve-headers (articles &optional group server _fetch-old)
(when group
(setq group (nnimap-decode-gnus-group group)))
(with-current-buffer nntp-server-buffer
@ -330,6 +330,8 @@ textual parts.")
(push (current-buffer) nnimap-process-buffers)
(current-buffer)))
(defvar auth-source-creation-prompts)
(defun nnimap-credentials (address ports user)
(let* ((auth-source-creation-prompts
'((user . "IMAP user at %h: ")
@ -585,7 +587,7 @@ textual parts.")
(gnus-buffer-live-p nntp-server-buffer)
(nnimap-find-connection nntp-server-buffer)))
(deffoo nnimap-status-message (&optional server)
(deffoo nnimap-status-message (&optional _server)
nnimap-status-string)
(deffoo nnimap-request-article (article &optional group server to-buffer)
@ -858,13 +860,13 @@ textual parts.")
"211 %d %d %d %S\n" (1+ (- high low)) low high group))
t))))
(deffoo nnimap-request-create-group (group &optional server args)
(deffoo nnimap-request-create-group (group &optional server _args)
(setq group (nnimap-decode-gnus-group group))
(when (nnimap-change-group nil server)
(with-current-buffer (nnimap-buffer)
(car (nnimap-command "CREATE %S" (utf7-encode group t))))))
(deffoo nnimap-request-delete-group (group &optional force server)
(deffoo nnimap-request-delete-group (group &optional _force server)
(setq group (nnimap-decode-gnus-group group))
(when (nnimap-change-group nil server)
(with-current-buffer (nnimap-buffer)
@ -909,11 +911,11 @@ textual parts.")
articles)))
(nreverse articles)))
(deffoo nnimap-close-group (group &optional server)
(deffoo nnimap-close-group (_group &optional _server)
t)
(deffoo nnimap-request-move-article (article group server accept-form
&optional last internal-move-group)
&optional _last internal-move-group)
(setq group (nnimap-decode-gnus-group group))
(when internal-move-group
(setq internal-move-group (nnimap-decode-gnus-group internal-move-group)))
@ -1144,7 +1146,7 @@ If LIMIT, first try to limit the search to the N last articles."
(when sequence
(nnimap-wait-for-response sequence))))))
(deffoo nnimap-request-accept-article (group &optional server last)
(deffoo nnimap-request-accept-article (group &optional server _last)
(unless group
;; We're respooling. Find out where mail splitting would place
;; this article.
@ -1262,7 +1264,7 @@ If LIMIT, first try to limit the search to the N last articles."
(goto-char (point-min))
(while (search-forward "* LIST " nil t)
(let ((flags (read (current-buffer)))
(separator (read (current-buffer)))
(_separator (read (current-buffer)))
(group (buffer-substring-no-properties
(progn (skip-chars-forward " \"")
(point))
@ -1272,7 +1274,8 @@ If LIMIT, first try to limit the search to the N last articles."
(unless (member '%NoSelect flags)
(push (utf7-decode (if (stringp group)
group
(format "%s" group)) t)
(format "%s" group))
t)
groups))))
(nreverse groups)))
@ -1332,7 +1335,7 @@ If LIMIT, first try to limit the search to the N last articles."
(or highest exists)))))))))
t)))))
(deffoo nnimap-request-newgroups (date &optional server)
(deffoo nnimap-request-newgroups (_date &optional server)
(when (nnimap-change-group nil server)
(with-current-buffer nntp-server-buffer
(erase-buffer)
@ -1351,7 +1354,7 @@ If LIMIT, first try to limit the search to the N last articles."
(setf (nnimap-group nnimap-object) nil)
(setf (nnimap-initial-resync nnimap-object) 0)
(let ((qresyncp (nnimap-capability "QRESYNC"))
params groups sequences active uidvalidity modseq group
params sequences active uidvalidity modseq group
unexist)
;; Go through the infos and gather the data needed to know
;; what and how to request the data.
@ -1665,7 +1668,7 @@ If LIMIT, first try to limit the search to the N last articles."
(push (list group info active) nnimap-current-infos))))
(defun nnimap-flags-to-marks (groups)
(let (data group totalp uidnext articles start-article mark permanent-flags
(let (data group uidnext articles start-article mark permanent-flags
uidvalidity vanished highestmodseq)
(dolist (elem groups)
(setq group (car elem)
@ -1756,7 +1759,7 @@ If LIMIT, first try to limit the search to the N last articles."
(setq start (point))
(goto-char end))
(while (re-search-forward "^\\* [0-9]+ FETCH " start t)
(let ((p (point)))
(progn
(setq elems (read (current-buffer)))
(push (cons (cadr (memq 'UID elems))
(cadr (memq 'FLAGS elems)))
@ -1774,7 +1777,7 @@ If LIMIT, first try to limit the search to the N last articles."
(defun nnimap-find-process-buffer (buffer)
(cadr (assoc buffer nnimap-connection-alist)))
(deffoo nnimap-request-post (&optional server)
(deffoo nnimap-request-post (&optional _server)
(setq nnimap-status-string "Read-only server")
nil)
@ -2176,10 +2179,10 @@ Return the server's response to the SELECT or EXAMINE command."
(forward-char (1+ bytes))
(delete-region (line-beginning-position) (line-end-position)))))))
(defun nnimap-dummy-active-number (group &optional server)
(defun nnimap-dummy-active-number (_group &optional _server)
1)
(defun nnimap-save-mail-spec (group-art &optional server full-nov)
(defun nnimap-save-mail-spec (group-art &optional _server _full-nov)
(let (article)
(goto-char (point-min))
(if (not (re-search-forward "X-nnimap-article: \\([0-9]+\\)" nil t))