7069 |
current-prefix-arg)) |
current-prefix-arg)) |
7070 |
(let ((func (cdr (assoc protocol gnus-article-encrypt-protocol-alist)))) |
(let ((func (cdr (assoc protocol gnus-article-encrypt-protocol-alist)))) |
7071 |
(unless func |
(unless func |
7072 |
(error (format "Can't find the encrypt protocol %s" protocol))) |
(error "Can't find the encrypt protocol %s" protocol)) |
7073 |
(if (member gnus-newsgroup-name '("nndraft:delayed" |
(if (member gnus-newsgroup-name '("nndraft:delayed" |
7074 |
"nndraft:drafts" |
"nndraft:drafts" |
7075 |
"nndraft:queue")) |
"nndraft:queue")) |