t)
(deffoo nntp-request-set-mark (group actions &optional server)
- (nntp-possibly-create-directory group server)
(unless nntp-marks-is-evil
+ (nntp-possibly-create-directory group server)
(nntp-open-marks group server)
(dolist (action actions)
(let ((range (nth 0 action))
nil)
(deffoo nntp-request-update-info (group info &optional server)
- (nntp-possibly-create-directory group server)
+ (unless nntp-marks-is-evil
+ (nntp-possibly-create-directory group server))
(when (and (not nntp-marks-is-evil) (nntp-marks-changed-p group server))
(nnheader-message 8 "Updating marks for %s..." group)
(nntp-open-marks group server)
If SEND-IF-FORCE, only send authinfo to the server if the
.authinfo file has the FORCE token."
- (let* ((list (gnus-parse-netrc nntp-authinfo-file))
- (alist (gnus-netrc-machine list nntp-address "nntp"))
- (force (gnus-netrc-get alist "force"))
- (user (or (gnus-netrc-get alist "login") nntp-authinfo-user))
- (passwd (gnus-netrc-get alist "password")))
+ (let* ((list (netrc-parse nntp-authinfo-file))
+ (alist (netrc-machine list nntp-address "nntp"))
+ (force (netrc-get alist "force"))
+ (user (or (netrc-get alist "login") nntp-authinfo-user))
+ (passwd (netrc-get alist "password")))
(when (or (not send-if-force)
force)
(unless user