Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

nnweb doesn't need unibyte buffers

Browse source 
* lisp/gnus/nnweb.el (nnweb-retrieve-headers)
(nnweb-read-overview, nnweb-request-article)
(nnweb-google-reference): Unibyte buffers are not needed here.
This commit is contained in:
Lars Ingebrigtsen 2016-02-12 16:07:07 +11:00
parent ce10b20710
commit ec9bd245eb
1 changed files with 16 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
lisp/gnus/nnweb.el
View file

@ -103,10 +103,9 @@ Valid types include `google', `dejanews', and `gmane'.")
(with-current-buffer nntp-server-buffer
(erase-buffer)
(let (article header)
(mm-with-unibyte-current-buffer
(while (setq article (pop articles))
(when (setq header (cadr (assq article nnweb-articles)))
(nnheader-insert-nov header))))
(while (setq article (pop articles))
(when (setq header (cadr (assq article nnweb-articles)))
(nnheader-insert-nov header)))
'nov)))
(deffoo nnweb-request-scan (&optional group server)
@ -153,8 +152,7 @@ Valid types include `google', `dejanews', and `gmane'.")
(let* ((header (cadr (assq article nnweb-articles)))
(url (and header (mail-header-xref header))))
(when (or (and url
(mm-with-unibyte-current-buffer
(mm-url-insert url)))
(mm-url-insert url))
(and (stringp article)
(nnweb-definition 'id t)
(let ((fetch (nnweb-definition 'id))
@ -164,8 +162,7 @@ Valid types include `google', `dejanews', and `gmane'.")
(when (and fetch art)
(setq url (format fetch
(mm-url-form-encode-xwfu art)))
(mm-with-unibyte-current-buffer
(mm-url-insert url))
(mm-url-insert url)
(if (nnweb-definition 'reference t)
(setq article
(funcall (nnweb-definition
@ -215,17 +212,16 @@ Valid types include `google', `dejanews', and `gmane'.")
(defun nnweb-read-overview (group)
"Read the overview of GROUP and build the map."
(when (file-exists-p (nnweb-overview-file group))
(mm-with-unibyte-buffer
(nnheader-insert-file-contents (nnweb-overview-file group))
(goto-char (point-min))
(let (header)
(while (not (eobp))
(setq header (nnheader-parse-nov))
(forward-line 1)
(push (list (mail-header-number header)
header (mail-header-xref header))
nnweb-articles)
(nnweb-set-hashtb header (car nnweb-articles)))))))
(nnheader-insert-file-contents (nnweb-overview-file group))
(goto-char (point-min))
(let (header)
(while (not (eobp))
(setq header (nnheader-parse-nov))
(forward-line 1)
(push (list (mail-header-number header)
header (mail-header-xref header))
nnweb-articles)
(nnweb-set-hashtb header (car nnweb-articles))))))
(defun nnweb-write-overview (group)
"Write the overview file for GROUP."
@ -386,8 +382,7 @@ Valid types include `google', `dejanews', and `gmane'.")
(setq nnweb-articles
(nconc nnweb-articles map))
(when (setq header (cadar map))
(mm-with-unibyte-current-buffer
(mm-url-insert (mail-header-xref header)))
(mm-url-insert (mail-header-xref header))
(caar map))))
(defun nnweb-google-create-mapping ()