1 ;;; elmo-nntp.el --- NNTP Interface for ELMO.
3 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
4 ;; Copyright (C) 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
5 ;; Copyright (C) 1999,2000 Kenichi OKADA <okada@opaopa.org>
7 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
8 ;; Masahiro MURATA <muse@ba2.so-net.ne.jp>
9 ;; Kenichi OKADA <okada@opaopa.org>
10 ;; Keywords: mail, net news
12 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
14 ;; This program is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
19 ;; This program is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
26 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
27 ;; Boston, MA 02111-1307, USA.
44 (defvar elmo-nntp-overview-fetch-chop-length 200
45 "*Number of overviews to fetch in one request in nntp.")
47 (defvar elmo-nntp-use-cache t
48 "Use cache in nntp folder.")
50 (defvar elmo-nntp-max-number-precedes-list-active nil
51 "Non-nil means max number of msgdb is set as the max number of `list active'.
52 (Needed for inn 2.3 or later?).")
54 (defvar elmo-nntp-group-coding-system nil
55 "A coding system for newsgroup string.")
57 (defsubst elmo-nntp-encode-group-string (string)
58 (if elmo-nntp-group-coding-system
59 (encode-coding-string string elmo-nntp-group-coding-system)
62 (defsubst elmo-nntp-decode-group-string (string)
63 (if elmo-nntp-group-coding-system
64 (decode-coding-string string elmo-nntp-group-coding-system)
69 (luna-define-class elmo-nntp-folder (elmo-net-folder)
70 (group temp-crosses reads))
71 (luna-define-internal-accessors 'elmo-nntp-folder))
73 (luna-define-method elmo-folder-initialize :around ((folder
76 (let ((elmo-network-stream-type-alist
77 (if elmo-nntp-stream-type-alist
78 (setq elmo-network-stream-type-alist
79 (append elmo-nntp-stream-type-alist
80 elmo-network-stream-type-alist))
81 elmo-network-stream-type-alist))
83 (setq name (luna-call-next-method))
84 (setq parse (elmo-parse-token name ":"))
85 (elmo-nntp-folder-set-group-internal folder
86 (elmo-nntp-encode-group-string
88 (setq parse (elmo-parse-prefixed-element ?: (cdr parse)))
89 (elmo-net-folder-set-user-internal folder
90 (if (eq (length (car parse)) 0)
91 elmo-nntp-default-user
93 (unless (elmo-net-folder-server-internal folder)
94 (elmo-net-folder-set-server-internal folder
95 elmo-nntp-default-server))
96 (unless (elmo-net-folder-port-internal folder)
97 (elmo-net-folder-set-port-internal folder
98 elmo-nntp-default-port))
99 (unless (elmo-net-folder-stream-type-internal folder)
100 (elmo-net-folder-set-stream-type-internal
102 (elmo-get-network-stream-type
103 elmo-nntp-default-stream-type)))
106 (luna-define-method elmo-folder-expand-msgdb-path ((folder elmo-nntp-folder))
107 (convert-standard-filename
109 (elmo-nntp-folder-group-internal folder)
110 (expand-file-name (or (elmo-net-folder-server-internal folder) "nowhere")
111 (expand-file-name "nntp"
112 elmo-msgdb-directory)))))
114 (luna-define-method elmo-folder-newsgroups ((folder elmo-nntp-folder))
115 (list (elmo-nntp-folder-group-internal folder)))
119 (luna-define-class elmo-nntp-session (elmo-network-session)
121 (luna-define-internal-accessors 'elmo-nntp-session))
124 ;; internal variables
127 (defvar elmo-nntp-connection-cache nil
128 "Cache of NNTP connection.")
129 ;; buffer local variable
131 (defvar elmo-nntp-list-folders-use-cache 600
132 "*Time to cache of list folders, as the number of seconds.
133 Don't cache if nil.")
135 (defvar elmo-nntp-list-folders-cache nil)
137 (defvar elmo-nntp-groups-async nil)
138 (defvar elmo-nntp-header-fetch-chop-length 200)
140 (defvar elmo-nntp-read-point 0)
142 (defvar elmo-nntp-send-mode-reader t)
144 (defvar elmo-nntp-opened-hook nil)
146 (defvar elmo-nntp-get-folders-securely nil)
148 (defvar elmo-nntp-default-use-xover t)
150 (defvar elmo-nntp-default-use-listgroup t)
152 (defvar elmo-nntp-default-use-list-active t)
154 (defvar elmo-nntp-default-use-xhdr t)
156 (defvar elmo-nntp-server-command-alist nil)
159 (defconst elmo-nntp-server-command-index '((xover . 0)
163 (defmacro elmo-nntp-get-server-command (session)
164 (` (assoc (cons (elmo-network-session-server-internal (, session))
165 (elmo-network-session-port-internal (, session)))
166 elmo-nntp-server-command-alist)))
168 (defmacro elmo-nntp-set-server-command (session com value)
170 (unless (setq entry (cdr (elmo-nntp-get-server-command
172 (setq elmo-nntp-server-command-alist
173 (nconc elmo-nntp-server-command-alist
176 (elmo-network-session-server-internal (, session))
177 (elmo-network-session-port-internal (, session)))
180 elmo-nntp-default-use-xover
181 elmo-nntp-default-use-listgroup
182 elmo-nntp-default-use-list-active
183 elmo-nntp-default-use-xhdr)))))))
185 (cdr (assq (, com) elmo-nntp-server-command-index))
188 (defmacro elmo-nntp-xover-p (session)
189 (` (let ((entry (elmo-nntp-get-server-command (, session))))
192 (cdr (assq 'xover elmo-nntp-server-command-index)))
193 elmo-nntp-default-use-xover))))
195 (defmacro elmo-nntp-set-xover (session value)
196 (` (elmo-nntp-set-server-command (, session) 'xover (, value))))
198 (defmacro elmo-nntp-listgroup-p (session)
199 (` (let ((entry (elmo-nntp-get-server-command (, session))))
202 (cdr (assq 'listgroup elmo-nntp-server-command-index)))
203 elmo-nntp-default-use-listgroup))))
205 (defmacro elmo-nntp-set-listgroup (session value)
206 (` (elmo-nntp-set-server-command (, session) 'listgroup (, value))))
208 (defmacro elmo-nntp-list-active-p (session)
209 (` (let ((entry (elmo-nntp-get-server-command (, session))))
212 (cdr (assq 'list-active elmo-nntp-server-command-index)))
213 elmo-nntp-default-use-list-active))))
215 (defmacro elmo-nntp-set-list-active (session value)
216 (` (elmo-nntp-set-server-command (, session) 'list-active (, value))))
218 (defmacro elmo-nntp-xhdr-p (session)
219 (` (let ((entry (elmo-nntp-get-server-command (, session))))
222 (cdr (assq 'xhdr elmo-nntp-server-command-index)))
223 elmo-nntp-default-use-xhdr))))
225 (defmacro elmo-nntp-set-xhdr (session value)
226 (` (elmo-nntp-set-server-command (, session) 'xhdr (, value))))
228 (defsubst elmo-nntp-max-number-precedes-list-active-p ()
229 elmo-nntp-max-number-precedes-list-active)
231 (defsubst elmo-nntp-folder-postfix (user server port type)
233 (and user (concat ":" user))
235 (null (string= server elmo-nntp-default-server)))
238 (null (eq port elmo-nntp-default-port)))
239 (concat ":" (if (numberp port)
240 (int-to-string port) port)))
241 (unless (eq (elmo-network-stream-type-symbol type)
242 elmo-nntp-default-stream-type)
243 (elmo-network-stream-type-spec-string type))))
245 (defun elmo-nntp-get-session (folder &optional if-exists)
246 (elmo-network-get-session
249 (if (elmo-folder-biff-internal folder)
255 (luna-define-method elmo-network-initialize-session ((session
257 (let ((process (elmo-network-session-process-internal session))
259 (set-process-filter (elmo-network-session-process-internal session)
260 'elmo-nntp-process-filter)
261 (with-current-buffer (elmo-network-session-buffer session)
262 (setq elmo-nntp-read-point (point-min))
263 ;; Skip garbage output from process before greeting.
264 (while (and (memq (process-status process) '(open run))
265 (goto-char (point-max))
267 (not (looking-at "^[2-5][0-9][0-9]")))
268 (accept-process-output process 1))
269 (setq elmo-nntp-read-point (point))
270 (setq response (elmo-nntp-read-response session t t))
271 (unless (car response)
272 (signal 'elmo-open-error (list (cdr response))))
273 (if elmo-nntp-send-mode-reader
274 (elmo-nntp-send-mode-reader session))
275 (when (eq (elmo-network-stream-type-symbol
276 (elmo-network-session-stream-type-internal session))
278 (elmo-nntp-send-command session "starttls")
279 (or (elmo-nntp-read-response session)
280 (error "Cannot open starttls session"))
281 (starttls-negotiate process)))))
283 (luna-define-method elmo-network-authenticate-session ((session
285 (with-current-buffer (elmo-network-session-buffer session)
286 (when (elmo-network-session-user-internal session)
287 (elmo-nntp-send-command session
288 (format "authinfo user %s"
289 (elmo-network-session-user-internal
291 (or (elmo-nntp-read-response session)
292 (signal 'elmo-authenticate-error '(authinfo)))
293 (elmo-nntp-send-command
295 (format "authinfo pass %s"
296 (elmo-get-passwd (elmo-network-session-password-key session))))
297 (or (elmo-nntp-read-response session)
298 (signal 'elmo-authenticate-error '(authinfo))))))
300 (luna-define-method elmo-network-setup-session ((session
302 (run-hooks 'elmo-nntp-opened-hook))
304 (defun elmo-nntp-process-filter (process output)
306 (set-buffer (process-buffer process))
307 (goto-char (point-max))
310 (defun elmo-nntp-send-mode-reader (session)
311 (elmo-nntp-send-command session "mode reader")
312 (if (null (elmo-nntp-read-response session t))
313 (error "Mode reader failed")))
315 (defun elmo-nntp-send-command (session command &optional noerase)
316 (with-current-buffer (elmo-network-session-buffer session)
319 (goto-char (point-min)))
320 (setq elmo-nntp-read-point (point))
321 (process-send-string (elmo-network-session-process-internal
323 (process-send-string (elmo-network-session-process-internal
326 (defun elmo-nntp-read-response (session &optional not-command error-msg)
327 (with-current-buffer (elmo-network-session-buffer session)
328 (let ((process (elmo-network-session-process-internal session))
329 (case-fold-search nil)
330 (response-string nil)
331 (response-continue t)
333 (while response-continue
334 (goto-char elmo-nntp-read-point)
335 (while (not (search-forward "\r\n" nil t))
336 (accept-process-output process)
337 (goto-char elmo-nntp-read-point))
338 (setq match-end (point))
339 (setq response-string
340 (buffer-substring elmo-nntp-read-point (- match-end 2)))
341 (goto-char elmo-nntp-read-point)
342 (if (looking-at "[23][0-9]+ .*$")
343 (progn (setq response-continue nil)
344 (setq elmo-nntp-read-point match-end)
347 (concat response "\n" response-string)
349 (if (looking-at "[^23][0-9]+ .*$")
350 (progn (setq response-continue nil)
351 (setq elmo-nntp-read-point match-end)
353 (setq elmo-nntp-read-point match-end)
355 (setq response-continue nil))
358 (concat response "\n" response-string)
360 (setq elmo-nntp-read-point match-end)))
362 (cons response response-string)
365 (defun elmo-nntp-read-raw-response (session)
366 (with-current-buffer (elmo-network-session-buffer session)
367 (goto-char elmo-nntp-read-point)
368 (while (not (search-forward "\r\n" nil t))
369 (accept-process-output (elmo-network-session-process-internal
371 (goto-char elmo-nntp-read-point))
372 (buffer-substring elmo-nntp-read-point (- (point) 2))))
374 (defun elmo-nntp-read-contents (session)
375 (with-current-buffer (elmo-network-session-buffer session)
376 (goto-char elmo-nntp-read-point)
377 (while (not (re-search-forward "^\\.\r\n" nil t))
378 (accept-process-output (elmo-network-session-process-internal
380 (goto-char elmo-nntp-read-point))
382 (buffer-substring elmo-nntp-read-point
385 (defun elmo-nntp-read-body (session outbuf)
386 (with-current-buffer (elmo-network-session-buffer session)
387 (goto-char elmo-nntp-read-point)
388 (while (not (re-search-forward "^\\.\r\n" nil t))
389 (accept-process-output (elmo-network-session-process-internal session))
390 (goto-char elmo-nntp-read-point))
391 (let ((start elmo-nntp-read-point)
393 (with-current-buffer outbuf
395 (insert-buffer-substring (elmo-network-session-buffer session)
399 (defun elmo-nntp-select-group (session group &optional force)
402 (not (string= (elmo-nntp-session-current-group-internal session)
406 (elmo-nntp-send-command session (format "group %s" group))
407 (setq response (elmo-nntp-read-response session)))
408 (elmo-nntp-session-set-current-group-internal session
409 (and response group))
412 (defun elmo-nntp-list-folders-get-cache (group server buf)
413 (when (and elmo-nntp-list-folders-use-cache
414 elmo-nntp-list-folders-cache
415 (string-match (concat "^"
418 (nth 1 elmo-nntp-list-folders-cache)
421 (string-match (concat "^"
424 (nth 2 elmo-nntp-list-folders-cache)
427 (let* ((cache-time (car elmo-nntp-list-folders-cache)))
428 (unless (elmo-time-expire cache-time
429 elmo-nntp-list-folders-use-cache)
433 (insert (nth 3 elmo-nntp-list-folders-cache))
434 (goto-char (point-min))
436 (or (string= group "")
438 (keep-lines (concat "^" (regexp-quote group) "\\."))))
442 (defsubst elmo-nntp-catchup-msgdb (msgdb max-number)
443 (let (msgdb-max number-alist)
444 (setq number-alist (elmo-msgdb-get-number-alist msgdb))
445 (setq msgdb-max (car (nth (max (- (length number-alist) 1) 0)
447 (if (or (not msgdb-max)
448 (and msgdb-max max-number
449 (< msgdb-max max-number)))
450 (elmo-msgdb-set-number-alist
452 (nconc number-alist (list (cons max-number nil)))))))
454 (luna-define-method elmo-folder-list-subfolders ((folder elmo-nntp-folder)
456 (elmo-nntp-folder-list-subfolders folder one-level))
458 (defun elmo-nntp-folder-list-subfolders (folder one-level)
459 (let ((session (elmo-nntp-get-session folder))
460 (case-fold-search nil)
461 response ret-val top-ng append-serv use-list-active start)
463 (set-buffer-multibyte nil)
464 (if (and (elmo-nntp-folder-group-internal folder)
465 (elmo-nntp-select-group
467 (elmo-nntp-folder-group-internal folder)))
468 ;; add top newsgroups
469 (setq ret-val (list (elmo-nntp-folder-group-internal folder))))
470 (unless (setq response (elmo-nntp-list-folders-get-cache
471 (elmo-nntp-folder-group-internal folder)
472 (elmo-net-folder-server-internal folder)
474 (when (setq use-list-active (elmo-nntp-list-active-p session))
475 (elmo-nntp-send-command
478 (if (and (elmo-nntp-folder-group-internal folder)
479 (not (string= (elmo-nntp-folder-group-internal
483 (elmo-nntp-folder-group-internal folder)
485 (if (elmo-nntp-read-response session t)
486 (if (null (setq response (elmo-nntp-read-contents session)))
487 (error "NNTP List folders failed")
488 (when elmo-nntp-list-folders-use-cache
489 (setq elmo-nntp-list-folders-cache
491 (elmo-nntp-folder-group-internal folder)
492 (elmo-net-folder-server-internal folder)
496 (elmo-nntp-set-list-active session nil)
497 (setq use-list-active nil)))
498 (when (null use-list-active)
499 (elmo-nntp-send-command session "list")
500 (if (null (and (elmo-nntp-read-response session t)
501 (setq response (elmo-nntp-read-contents session))))
502 (error "NNTP List folders failed"))
503 (when elmo-nntp-list-folders-use-cache
504 (setq elmo-nntp-list-folders-cache
505 (list (current-time) nil nil response)))
508 (while (string-match (concat "^"
511 (elmo-nntp-folder-group-internal
515 (insert (match-string 0 response) "\n")
516 (setq start (match-end 0)))))
517 (goto-char (point-min))
518 (let ((len (count-lines (point-min) (point-max)))
523 (format "^\\(%s[^. ]+\\)\\([. ]\\).*\n"
525 (elmo-nntp-folder-group-internal folder)
527 (elmo-nntp-folder-group-internal
529 (concat (elmo-nntp-folder-group-internal
532 (while (looking-at regexp)
533 (setq top-ng (elmo-match-buffer 1))
534 (if (string= (elmo-match-buffer 2) " ")
535 (if (not (or (member top-ng ret-val)
536 (assoc top-ng ret-val)))
537 (setq ret-val (nconc ret-val (list top-ng))))
538 (if (member top-ng ret-val)
539 (setq ret-val (delete top-ng ret-val)))
540 (if (not (assoc top-ng ret-val))
541 (setq ret-val (nconc ret-val (list (list top-ng))))))
542 (when (> len elmo-display-progress-threshold)
544 (if (or (zerop (% i 10)) (= i len))
545 (elmo-display-progress
546 'elmo-nntp-list-folders "Parsing active..."
549 (while (re-search-forward "\\([^ ]+\\) .*\n" nil t)
550 (setq ret-val (nconc ret-val
551 (list (elmo-match-buffer 1))))
552 (when (> len elmo-display-progress-threshold)
554 (if (or (zerop (% i 10)) (= i len))
555 (elmo-display-progress
556 'elmo-nntp-list-folders "Parsing active..."
557 (/ (* i 100) len))))))
558 (when (> len elmo-display-progress-threshold)
559 (elmo-display-progress
560 'elmo-nntp-list-folders "Parsing active..." 100))))
561 (unless (string= (elmo-net-folder-server-internal folder)
562 elmo-nntp-default-server)
563 (setq append-serv (concat "@" (elmo-net-folder-server-internal
565 (unless (eq (elmo-net-folder-port-internal folder) elmo-nntp-default-port)
566 (setq append-serv (concat append-serv
568 (elmo-net-folder-port-internal folder)))))
569 (unless (eq (elmo-network-stream-type-symbol
570 (elmo-net-folder-stream-type-internal folder))
571 elmo-nntp-default-stream-type)
574 (elmo-network-stream-type-spec-string
575 (elmo-net-folder-stream-type-internal folder)))))
576 (mapcar '(lambda (fld)
578 (list (concat "-" (elmo-nntp-decode-group-string (car fld))
579 (and (elmo-net-folder-user-internal folder)
582 (elmo-net-folder-user-internal folder)))
584 (concat append-serv))))
585 (concat "-" (elmo-nntp-decode-group-string fld)
586 (and (elmo-net-folder-user-internal folder)
587 (concat ":" (elmo-net-folder-user-internal
590 (concat append-serv)))))
593 (defun elmo-nntp-make-msglist (beg-str end-str)
595 (let ((beg-num (string-to-int beg-str))
596 (end-num (string-to-int end-str))
600 (while (<= i end-num)
601 (insert (format "%s " i))
604 (goto-char (point-min))
605 (read (current-buffer)))))
607 (luna-define-method elmo-folder-list-messages-plugged ((folder
610 (let ((session (elmo-nntp-get-session folder))
611 (group (elmo-nntp-folder-group-internal folder))
612 response numbers use-listgroup)
614 (when (setq use-listgroup (elmo-nntp-listgroup-p session))
615 (elmo-nntp-send-command session
616 (format "listgroup %s" group))
617 (if (not (elmo-nntp-read-response session t))
619 (elmo-nntp-set-listgroup session nil)
620 (setq use-listgroup nil))
621 (if (null (setq response (elmo-nntp-read-contents session)))
622 (error "Fetching listgroup failed"))
623 (setq numbers (elmo-string-to-list response))
624 (elmo-nntp-session-set-current-group-internal session
626 (unless use-listgroup
627 (elmo-nntp-send-command session (format "group %s" group))
628 (if (null (setq response (elmo-nntp-read-response session)))
629 (error "Select group failed"))
632 "211 \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) [^.].+$"
634 (> (string-to-int (elmo-match-string 1 response)) 0))
635 (setq numbers (elmo-nntp-make-msglist
636 (elmo-match-string 2 response)
637 (elmo-match-string 3 response)))))
640 (luna-define-method elmo-folder-status ((folder elmo-nntp-folder))
641 (elmo-nntp-folder-status folder))
643 (defun elmo-nntp-folder-status (folder)
644 (let ((killed-list (elmo-msgdb-killed-list-load
645 (elmo-folder-msgdb-path folder)))
647 (if elmo-nntp-groups-async
650 (concat (elmo-nntp-folder-group-internal folder)
651 (elmo-nntp-folder-postfix
652 (elmo-net-folder-user-internal folder)
653 (elmo-net-folder-server-internal folder)
654 (elmo-net-folder-port-internal folder)
655 (elmo-net-folder-stream-type-internal folder)))
656 elmo-newsgroups-hashtb))
658 (setq end-num (nth 2 entry))
659 (when (and killed-list
660 (elmo-number-set-member end-num killed-list))
663 (cons end-num (car entry)))
664 (error "No such newsgroup \"%s\""
665 (elmo-nntp-folder-group-internal folder)))
666 (let ((session (elmo-nntp-get-session folder))
669 (error "Connection failed"))
671 (elmo-nntp-send-command session
674 (elmo-nntp-folder-group-internal folder)))
675 (setq response (elmo-nntp-read-response session))
678 "211 \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) [^.].+$"
681 (setq end-num (string-to-int
682 (elmo-match-string 3 response)))
683 (setq e-num (string-to-int
684 (elmo-match-string 1 response)))
685 (when (and killed-list
686 (elmo-number-set-member end-num killed-list))
689 (cons end-num e-num))
691 (error "Selecting newsgroup \"%s\" failed"
692 (elmo-nntp-folder-group-internal folder))
695 (defconst elmo-nntp-overview-index
706 (defun elmo-nntp-create-msgdb-from-overview-string (str
713 (let (ov-list gmark message-id seen
714 ov-entity overview number-alist mark-alist num
715 extras extra ext field field-index)
716 (setq ov-list (elmo-nntp-parse-overview-string str))
718 (setq ov-entity (car ov-list))
720 ;;; (if (or (> (setq num (string-to-int (aref ov-entity 0)))
724 ;;; (setq num (int-to-string num))
725 (setq num (string-to-int (aref ov-entity 0)))
726 (when (or (null numlist)
728 (setq extras elmo-msgdb-extra-fields
731 (setq ext (downcase (car extras)))
732 (when (setq field-index (cdr (assoc ext elmo-nntp-overview-index)))
733 (when (> (length ov-entity) field-index)
734 (setq field (aref ov-entity field-index))
735 (when (eq field-index 8) ;; xref
736 (setq field (elmo-msgdb-remove-field-string field)))
737 (setq extra (cons (cons ext field) extra))))
738 (setq extras (cdr extras)))
740 (elmo-msgdb-append-element
742 (cons (aref ov-entity 4)
744 (elmo-msgdb-get-last-message-id
747 (elmo-mime-string (elmo-delete-char
753 (elmo-mime-string (or (aref ov-entity 1)
755 (aref ov-entity 3) ;date
759 (aref ov-entity 6)) ; size
760 extra ; extra-field-list
763 (elmo-msgdb-number-add number-alist num
765 (setq message-id (aref ov-entity 4))
766 (setq seen (member message-id seen-list))
767 (if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
768 (if (elmo-file-cache-status
769 (elmo-file-cache-get message-id))
774 (if elmo-nntp-use-cache
778 (elmo-msgdb-mark-append mark-alist
780 (setq ov-list (cdr ov-list)))
781 (list overview number-alist mark-alist)))
783 (luna-define-method elmo-folder-msgdb-create ((folder elmo-nntp-folder)
784 numbers new-mark already-mark
785 seen-mark important-mark
787 (elmo-nntp-folder-msgdb-create folder numbers new-mark already-mark
788 seen-mark important-mark
791 (defun elmo-nntp-folder-msgdb-create (folder numbers new-mark already-mark
792 seen-mark important-mark
794 (let ((filter numbers)
795 (session (elmo-nntp-get-session folder))
796 beg-num end-num cur length
797 ret-val ov-str use-xover dir)
798 (elmo-nntp-select-group session (elmo-nntp-folder-group-internal
800 (when (setq use-xover (elmo-nntp-xover-p session))
801 (setq beg-num (car numbers)
803 end-num (nth (1- (length numbers)) numbers)
804 length (+ (- end-num beg-num) 1))
805 (message "Getting overview...")
806 (while (<= cur end-num)
807 (elmo-nntp-send-command
814 elmo-nntp-overview-fetch-chop-length))))
815 (with-current-buffer (elmo-network-session-buffer session)
820 (elmo-nntp-create-msgdb-from-overview-string
829 (if (null (elmo-nntp-read-response session t))
831 (setq cur end-num);; exit while loop
832 (elmo-nntp-set-xover session nil)
833 (setq use-xover nil))
834 (if (null (setq ov-str (elmo-nntp-read-contents session)))
835 (error "Fetching overview failed")))
836 (setq cur (+ elmo-nntp-overview-fetch-chop-length cur 1))
837 (when (> length elmo-display-progress-threshold)
838 (elmo-display-progress
839 'elmo-nntp-msgdb-create "Getting overview..."
840 (/ (* (+ (- (min cur end-num)
841 beg-num) 1) 100) length))))
842 (when (> length elmo-display-progress-threshold)
843 (elmo-display-progress
844 'elmo-nntp-msgdb-create "Getting overview..." 100)))
846 (setq ret-val (elmo-nntp-msgdb-create-by-header
848 new-mark already-mark seen-mark seen-list))
849 (with-current-buffer (elmo-network-session-buffer session)
854 (elmo-nntp-create-msgdb-from-overview-string
862 (elmo-folder-set-killed-list-internal
865 (elmo-folder-killed-list-internal folder)
869 (elmo-msgdb-get-number-alist
871 ;; If there are canceled messages, overviews are not obtained
872 ;; to max-number(inn 2.3?).
873 (when (and (elmo-nntp-max-number-precedes-list-active-p)
874 (elmo-nntp-list-active-p session))
875 (elmo-nntp-send-command session
876 (format "list active %s"
877 (elmo-nntp-folder-group-internal
879 (if (null (elmo-nntp-read-response session))
881 (elmo-nntp-set-list-active session nil)
882 (error "NNTP list command failed")))
883 (elmo-nntp-catchup-msgdb
885 (nth 1 (read (concat "(" (elmo-nntp-read-contents
889 (luna-define-method elmo-folder-update-number ((folder elmo-nntp-folder))
890 (if (elmo-nntp-max-number-precedes-list-active-p)
891 (let ((session (elmo-nntp-get-session folder))
892 (number-alist (elmo-msgdb-get-number-alist
893 (elmo-folder-msgdb folder))))
894 (if (elmo-nntp-list-active-p session)
895 (let (msgdb-max max-number)
896 ;; If there are canceled messages, overviews are not obtained
897 ;; to max-number(inn 2.3?).
898 (elmo-nntp-select-group session
899 (elmo-nntp-folder-group-internal folder))
900 (elmo-nntp-send-command session
901 (format "list active %s"
902 (elmo-nntp-folder-group-internal
904 (if (null (elmo-nntp-read-response session))
905 (error "NNTP list command failed"))
907 (nth 1 (read (concat "(" (elmo-nntp-read-contents
910 (car (nth (max (- (length number-alist) 1) 0)
912 (if (or (and number-alist (not msgdb-max))
913 (and msgdb-max max-number
914 (< msgdb-max max-number)))
915 (elmo-msgdb-set-number-alist
916 (elmo-folder-msgdb folder)
918 (list (cons max-number nil))))))))))
920 (defun elmo-nntp-msgdb-create-by-header (session numbers
921 new-mark already-mark
924 (elmo-nntp-retrieve-headers session (current-buffer) numbers)
925 (elmo-nntp-msgdb-create-message
926 (length numbers) new-mark already-mark seen-mark seen-list)))
928 (defun elmo-nntp-parse-xhdr-response (string)
932 (goto-char (point-min))
934 (if (looking-at "^\\([0-9]+\\) \\(.*\\)$")
935 (setq response (cons (cons (string-to-int (elmo-match-buffer 1))
936 (elmo-match-buffer 2))
939 (nreverse response)))
941 (defun elmo-nntp-parse-overview-string (string)
943 (let ((tmp-buffer (get-buffer-create " *ELMO Overview TMP*"))
944 ret-list ret-val beg)
945 (set-buffer tmp-buffer)
947 (elmo-set-buffer-multibyte nil)
949 (goto-char (point-min))
953 (setq ret-list (save-match-data
954 (apply 'vector (split-string
955 (buffer-substring beg (point))
960 (setq ret-val (nconc ret-val (list ret-list))))
961 ;;; (kill-buffer tmp-buffer)
964 (defun elmo-nntp-get-newsgroup-by-msgid (msgid server user port type)
965 "Get nntp header string."
967 (let ((session (elmo-nntp-get-session
973 :stream-type type))))
974 (elmo-nntp-send-command session
975 (format "head %s" msgid))
976 (if (elmo-nntp-read-response session)
977 (elmo-nntp-read-contents session))
978 (with-current-buffer (elmo-network-session-buffer session)
979 (std11-field-body "Newsgroups")))))
981 (luna-define-method elmo-message-fetch-with-cache-process :around
982 ((folder elmo-nntp-folder) number strategy &optional section unread)
983 (when (luna-call-next-method)
984 (elmo-nntp-setup-crosspost-buffer folder number)
986 (elmo-nntp-folder-update-crosspost-message-alist
987 folder (list number)))
990 (luna-define-method elmo-message-fetch-plugged ((folder elmo-nntp-folder)
992 &optional section outbuf
994 (elmo-nntp-message-fetch folder number strategy section outbuf unread))
996 (defun elmo-nntp-message-fetch (folder number strategy section outbuf unread)
997 (let ((session (elmo-nntp-get-session folder))
999 (with-current-buffer (elmo-network-session-buffer session)
1000 (elmo-nntp-select-group session (elmo-nntp-folder-group-internal folder))
1001 (elmo-nntp-send-command session (format "article %s" number))
1002 (if (null (elmo-nntp-read-response session t))
1004 (with-current-buffer outbuf (erase-buffer))
1005 (message "Fetching message failed")
1007 (prog1 (elmo-nntp-read-body session outbuf)
1008 (with-current-buffer outbuf
1009 (goto-char (point-min))
1010 (while (re-search-forward "^\\." nil t)
1013 (elmo-nntp-setup-crosspost-buffer folder number)
1015 (elmo-nntp-folder-update-crosspost-message-alist
1016 folder (list number)))))))))
1018 (defun elmo-nntp-post (hostname content-buf)
1019 (let ((session (elmo-nntp-get-session
1022 :user elmo-nntp-default-user
1024 :port elmo-nntp-default-port
1026 (elmo-get-network-stream-type
1027 elmo-nntp-default-stream-type))))
1028 response has-message-id)
1030 (set-buffer content-buf)
1031 (goto-char (point-min))
1032 (if (search-forward mail-header-separator nil t)
1033 (delete-region (match-beginning 0)(match-end 0)))
1034 (setq has-message-id (std11-field-body "message-id"))
1035 (elmo-nntp-send-command session "post")
1036 (if (string-match "^340" (setq response
1037 (elmo-nntp-read-raw-response session)))
1038 (if (string-match "recommended ID \\(<[^@]+@[^>]+>\\)" response)
1039 (unless has-message-id
1040 (goto-char (point-min))
1041 (insert (concat "Message-ID: "
1042 (elmo-match-string 1 response)
1044 (error "POST failed"))
1045 (run-hooks 'elmo-nntp-post-pre-hook)
1046 (elmo-nntp-send-buffer session content-buf)
1047 (elmo-nntp-send-command session ".")
1048 ;;; (elmo-nntp-read-response buffer process t)
1049 (if (not (string-match
1050 "^2" (setq response (elmo-nntp-read-raw-response
1052 (error (concat "NNTP error: " response))))))
1054 (defsubst elmo-nntp-send-data-line (session line)
1055 "Send LINE to SESSION."
1056 ;; Escape "." at start of a line
1057 (if (eq (string-to-char line) ?.)
1058 (process-send-string (elmo-network-session-process-internal
1060 (process-send-string (elmo-network-session-process-internal
1062 (process-send-string (elmo-network-session-process-internal
1065 (defun elmo-nntp-send-buffer (session databuf)
1066 "Send data content of DATABUF to SESSION."
1067 (let ((data-continue t)
1069 (with-current-buffer databuf
1070 (goto-char (point-min))
1071 (while data-continue
1075 (setq line (buffer-substring bol (point)))
1076 (unless (eq (forward-line 1) 0) (setq data-continue nil))
1077 (elmo-nntp-send-data-line session line)))))
1079 (luna-define-method elmo-folder-delete-messages ((folder elmo-nntp-folder)
1081 (elmo-nntp-folder-delete-messages folder numbers))
1083 (defun elmo-nntp-folder-delete-messages (folder numbers)
1084 (let ((killed-list (elmo-folder-killed-list-internal folder)))
1085 (dolist (number numbers)
1087 (elmo-msgdb-set-as-killed killed-list number)))
1088 (elmo-folder-set-killed-list-internal folder killed-list))
1091 (luna-define-method elmo-folder-exists-p ((folder elmo-nntp-folder))
1092 (let ((session (elmo-nntp-get-session folder)))
1093 (if (elmo-folder-plugged-p folder)
1095 (elmo-nntp-send-command
1098 (elmo-nntp-folder-group-internal folder)))
1099 (elmo-nntp-read-response session))
1102 (defun elmo-nntp-retrieve-field (spec field from-msgs)
1103 "Retrieve FIELD values from FROM-MSGS.
1104 Returns a list of cons cells like (NUMBER . VALUE)"
1105 (let ((session (elmo-nntp-get-session spec)))
1106 (if (elmo-nntp-xhdr-p session)
1108 (elmo-nntp-select-group session (elmo-nntp-folder-group-internal spec))
1109 (elmo-nntp-send-command session
1110 (format "xhdr %s %s"
1118 (- (length from-msgs) 1) 0)
1121 (if (elmo-nntp-read-response session t)
1122 (elmo-nntp-parse-xhdr-response
1123 (elmo-nntp-read-contents session))
1124 (elmo-nntp-set-xhdr session nil)
1125 (error "NNTP XHDR command failed"))))))
1127 (defun elmo-nntp-search-primitive (spec condition &optional from-msgs)
1128 (let ((search-key (elmo-filter-key condition)))
1130 ((string= "last" search-key)
1131 (let ((numbers (or from-msgs (elmo-folder-list-messages spec))))
1132 (nthcdr (max (- (length numbers)
1133 (string-to-int (elmo-filter-value condition)))
1136 ((string= "first" search-key)
1137 (let* ((numbers (or from-msgs (elmo-folder-list-messages spec)))
1138 (rest (nthcdr (string-to-int (elmo-filter-value condition) )
1140 (mapcar '(lambda (x) (delete x numbers)) rest)
1142 ((or (string= "since" search-key)
1143 (string= "before" search-key))
1144 (let* ((specified-date (elmo-date-make-sortable-string
1145 (elmo-date-get-datevec (elmo-filter-value
1147 (since (string= "since" search-key))
1149 (if (eq (elmo-filter-type condition) 'unmatch)
1150 (setq since (not since)))
1156 (elmo-date-make-sortable-string
1159 (current-time-zone) nil)))
1161 (or (string= specified-date field-date)
1162 (string< specified-date field-date))
1166 (elmo-nntp-retrieve-field spec "date" from-msgs))))
1168 (elmo-list-filter from-msgs result)
1171 (let ((val (elmo-filter-value condition))
1172 (negative (eq (elmo-filter-type condition) 'unmatch))
1173 (case-fold-search t)
1179 (if (string-match val
1180 (eword-decode-string
1181 (decode-mime-charset-string
1182 (cdr pair) elmo-mime-charset)))
1183 (unless negative (car pair))
1184 (if negative (car pair))))
1185 (elmo-nntp-retrieve-field spec search-key
1188 (elmo-list-filter from-msgs result)
1191 (defun elmo-nntp-search-internal (folder condition from-msgs)
1194 ((vectorp condition)
1195 (setq result (elmo-nntp-search-primitive
1196 folder condition from-msgs)))
1197 ((eq (car condition) 'and)
1198 (setq result (elmo-nntp-search-internal folder
1201 result (elmo-list-filter result
1202 (elmo-nntp-search-internal
1203 folder (nth 2 condition)
1205 ((eq (car condition) 'or)
1206 (setq result (elmo-nntp-search-internal folder
1209 result (elmo-uniq-list
1211 (elmo-nntp-search-internal folder
1214 result (sort result '<))))))
1216 (luna-define-method elmo-folder-search :around ((folder elmo-nntp-folder)
1217 condition &optional from-msgs)
1218 (if (elmo-folder-plugged-p folder)
1219 (elmo-nntp-search-internal folder condition from-msgs)
1220 (luna-call-next-method)))
1222 (defun elmo-nntp-get-folders-info-prepare (folder session-keys)
1224 (let ((session (elmo-nntp-get-session folder))
1226 (with-current-buffer (elmo-network-session-buffer session)
1227 (unless (setq key (assoc session session-keys))
1229 (setq key (cons session
1231 (elmo-net-folder-server-internal folder)
1232 (elmo-net-folder-user-internal folder)
1233 (elmo-net-folder-port-internal folder)
1234 (elmo-net-folder-stream-type-internal
1236 (setq session-keys (nconc session-keys (list key))))
1237 (elmo-nntp-send-command session
1239 (elmo-nntp-folder-group-internal
1242 (if elmo-nntp-get-folders-securely
1243 (accept-process-output
1244 (elmo-network-session-process-internal session)
1246 (setq count (aref (cdr key) 0))
1247 (aset (cdr key) 0 (1+ count))))
1249 (when elmo-auto-change-plugged
1254 (defun elmo-nntp-get-folders-info (session-keys)
1255 (let ((sessions session-keys)
1256 (cur (get-buffer-create " *ELMO NNTP Temp*")))
1258 (let* ((session (caar sessions))
1259 (key (cdar sessions))
1260 (count (aref key 0))
1261 (server (aref key 1))
1265 (hashtb (or elmo-newsgroups-hashtb
1266 (setq elmo-newsgroups-hashtb
1267 (elmo-make-hash count)))))
1269 (elmo-nntp-groups-read-response session cur count)
1271 (goto-char (point-min))
1272 (let ((case-replace nil)
1273 (postfix (elmo-nntp-folder-postfix user server port type)))
1274 (if (not (string= postfix ""))
1276 (replace-regexp "^\\(211 [0-9]+ [0-9]+ [0-9]+ [^ \n]+\\).*$"
1278 (elmo-replace-in-string
1280 "\\\\" "\\\\\\\\\\\\\\\\"))))))
1281 (let (len min max group)
1284 (when (= (following-char) ?2)
1286 (setq len (read cur)
1289 (set (setq group (let ((obarray hashtb)) (read cur)))
1290 (list len min max)))
1291 (error (and group (symbolp group) (set group nil))))
1293 (setq sessions (cdr sessions))))
1296 ;; original is 'nntp-retrieve-groups [Gnus]
1297 (defun elmo-nntp-groups-read-response (session outbuf count)
1299 (last-point (point-min)))
1300 (with-current-buffer (elmo-network-session-buffer session)
1301 (accept-process-output
1302 (elmo-network-session-process-internal session) 1)
1304 ;; Wait for all replies.
1305 (message "Getting folders info...")
1307 (goto-char last-point)
1309 (while (re-search-forward "^[0-9]" nil t)
1312 (setq last-point (point))
1314 (accept-process-output (elmo-network-session-process-internal session)
1317 (when (> count elmo-display-progress-threshold)
1318 (if (or (zerop (% received 10)) (= received count))
1319 (elmo-display-progress
1320 'elmo-nntp-groups-read-response "Getting folders info..."
1321 (/ (* received 100) count)))))
1322 (when (> count elmo-display-progress-threshold)
1323 (elmo-display-progress
1324 'elmo-nntp-groups-read-response "Getting folders info..." 100))
1325 ;; Wait for the reply from the final command.
1326 (goto-char (point-max))
1327 (re-search-backward "^[0-9]" nil t)
1328 (when (looking-at "^[23]")
1330 (goto-char (point-max))
1331 (not (re-search-backward "\r?\n" (- (point) 3) t)))
1332 (accept-process-output
1333 (elmo-network-session-process-internal session) 1)
1335 ;; Now all replies are received. We remove CRs.
1336 (goto-char (point-min))
1337 (while (search-forward "\r" nil t)
1338 (replace-match "" t t))
1339 (copy-to-buffer outbuf (point-min) (point-max)))))
1341 ;; from nntp.el [Gnus]
1343 (defsubst elmo-nntp-next-result-arrived-p ()
1345 ((eq (following-char) ?2)
1346 (if (re-search-forward "\n\\.\r?\n" nil t)
1349 ((looking-at "[34]")
1350 (if (search-forward "\n" nil t)
1356 (defun elmo-nntp-retrieve-headers (session outbuf articles)
1357 "Retrieve the headers of ARTICLES."
1358 (with-current-buffer (elmo-network-session-buffer session)
1360 (let ((number (length articles))
1363 (last-point (point-min))
1365 ;; Send HEAD commands.
1366 (while (setq article (pop articles))
1367 (elmo-nntp-send-command session
1368 (format "head %s" article)
1370 (setq count (1+ count))
1371 ;; Every 200 requests we have to read the stream in
1372 ;; order to avoid deadlocks.
1373 (when (or (null articles) ;All requests have been sent.
1374 (zerop (% count elmo-nntp-header-fetch-chop-length)))
1375 (accept-process-output
1376 (elmo-network-session-process-internal session) 1)
1379 (goto-char last-point)
1381 (while (elmo-nntp-next-result-arrived-p)
1382 (setq last-point (point))
1383 (setq received (1+ received)))
1385 (when (> number elmo-display-progress-threshold)
1386 (if (or (zerop (% received 20)) (= received number))
1387 (elmo-display-progress
1388 'elmo-nntp-retrieve-headers "Getting headers..."
1389 (/ (* received 100) number))))
1390 (accept-process-output
1391 (elmo-network-session-process-internal session) 1)
1393 (when (> number elmo-display-progress-threshold)
1394 (elmo-display-progress
1395 'elmo-nntp-retrieve-headers "Getting headers..." 100))
1396 (message "Getting headers...done")
1397 ;; Remove all "\r"'s.
1398 (goto-char (point-min))
1399 (while (search-forward "\r\n" nil t)
1400 (replace-match "\n"))
1401 (copy-to-buffer outbuf (point-min) (point-max)))))
1405 (defun elmo-nntp-msgdb-create-message (len new-mark
1406 already-mark seen-mark seen-list)
1408 (let (beg overview number-alist mark-alist
1409 entity i num gmark seen message-id)
1410 (elmo-set-buffer-multibyte nil)
1411 (goto-char (point-min))
1413 (message "Creating msgdb...")
1415 (setq beg (save-excursion (forward-line 1) (point)))
1417 (and (looking-at "^2[0-9]*[ ]+\\([0-9]+\\)")
1419 (elmo-match-buffer 1))))
1420 (elmo-nntp-next-result-arrived-p)
1425 (narrow-to-region beg (point))
1427 (elmo-msgdb-create-overview-from-buffer num))
1430 (elmo-msgdb-append-element
1433 (elmo-msgdb-number-add
1435 (elmo-msgdb-overview-entity-get-number entity)
1437 (setq message-id (car entity))
1438 (setq seen (member message-id seen-list))
1440 (or (elmo-msgdb-global-mark-get message-id)
1441 (if (elmo-file-cache-status
1442 (elmo-file-cache-get message-id))
1447 (if elmo-nntp-use-cache
1451 (elmo-msgdb-mark-append
1455 (when (> len elmo-display-progress-threshold)
1457 (if (or (zerop (% i 20)) (= i len))
1458 (elmo-display-progress
1459 'elmo-nntp-msgdb-create-message "Creating msgdb..."
1460 (/ (* i 100) len)))))
1461 (when (> len elmo-display-progress-threshold)
1462 (elmo-display-progress
1463 'elmo-nntp-msgdb-create-message "Creating msgdb..." 100))
1464 (list overview number-alist mark-alist))))
1466 (luna-define-method elmo-message-use-cache-p ((folder elmo-nntp-folder) number)
1467 elmo-nntp-use-cache)
1469 (luna-define-method elmo-folder-creatable-p ((folder elmo-nntp-folder))
1472 (defun elmo-nntp-parse-newsgroups (string &optional subscribe-only)
1473 (let ((nglist (elmo-parse string "[ \t\f\r\n,]*\\([^ \t\f\r\n,]+\\)"))
1475 (if (not subscribe-only)
1478 (if (intern-soft ng elmo-newsgroups-hashtb)
1479 (setq ngs (cons ng ngs))))
1482 ;;; Crosspost processing.
1484 ;; 1. setup crosspost alist.
1485 ;; 1.1. When message is fetched and is crossposted message,
1486 ;; it is remembered in `temp-crosses' slot.
1487 ;; temp-crosses slot is a list of cons cell:
1488 ;; (NUMBER . (MESSAGE-ID (LIST-OF-NEWSGROUPS) 'ng))
1489 ;; 1.2. In elmo-folder-close, `temp-crosses' slot is cleared,
1490 ;; 1.3. In elmo-folder-mark-as-read, move crosspost entry
1491 ;; from `temp-crosses' slot to `elmo-crosspost-message-alist'.
1493 ;; 2. process crosspost alist.
1494 ;; 2.1. At elmo-folder-process-crosspost, setup `reads' slot from
1495 ;; `elmo-crosspost-message-alist'.
1496 ;; 2.2. remove crosspost entry for current newsgroup from
1497 ;; `elmo-crosspost-message-alist'.
1498 ;; 2.3. elmo-folder-list-unreads return unread message list according to
1500 ;; (There's a problem that if `elmo-folder-list-unreads'
1501 ;; never executed, crosspost information is thrown away.)
1502 ;; 2.4. In elmo-folder-close, `read' slot is cleared,
1504 (defun elmo-nntp-setup-crosspost-buffer (folder number)
1505 ;; 1.1. When message is fetched and is crossposted message,
1506 ;; it is remembered in `temp-crosses' slot.
1507 ;; temp-crosses slot is a list of cons cell:
1508 ;; (NUMBER . (MESSAGE-ID (LIST-OF-NEWSGROUPS) 'ng))
1509 (let (newsgroups crosspost-newsgroups message-id)
1511 (std11-narrow-to-header)
1512 (setq newsgroups (std11-fetch-field "newsgroups")
1513 message-id (std11-msg-id-string
1514 (car (std11-parse-msg-id-string
1515 (std11-fetch-field "message-id"))))))
1517 (when (setq crosspost-newsgroups
1519 (elmo-nntp-folder-group-internal folder)
1520 (elmo-nntp-parse-newsgroups newsgroups t)))
1521 (unless (assq number
1522 (elmo-nntp-folder-temp-crosses-internal folder))
1523 (elmo-nntp-folder-set-temp-crosses-internal
1525 (cons (cons number (list message-id crosspost-newsgroups 'ng))
1526 (elmo-nntp-folder-temp-crosses-internal folder))))))))
1528 (luna-define-method elmo-folder-close-internal ((folder elmo-nntp-folder))
1529 ;; 1.2. In elmo-folder-close, `temp-crosses' slot is cleared,
1530 (elmo-nntp-folder-set-temp-crosses-internal folder nil)
1531 (elmo-nntp-folder-set-reads-internal folder nil)
1534 (defun elmo-nntp-folder-update-crosspost-message-alist (folder numbers)
1535 ;; 1.3. In elmo-folder-mark-as-read, move crosspost entry
1536 ;; from `temp-crosses' slot to `elmo-crosspost-message-alist'.
1538 (dolist (number numbers)
1539 (when (setq elem (assq number
1540 (elmo-nntp-folder-temp-crosses-internal folder)))
1541 (unless (assoc (cdr (cdr elem)) elmo-crosspost-message-alist)
1542 (setq elmo-crosspost-message-alist
1543 (cons (cdr elem) elmo-crosspost-message-alist)))
1544 (elmo-nntp-folder-set-temp-crosses-internal
1546 (delq elem (elmo-nntp-folder-temp-crosses-internal folder)))))))
1548 (luna-define-method elmo-folder-mark-as-read ((folder elmo-nntp-folder)
1550 (elmo-nntp-folder-update-crosspost-message-alist folder numbers)
1553 (luna-define-method elmo-folder-process-crosspost ((folder elmo-nntp-folder)
1556 (elmo-nntp-folder-process-crosspost folder number-alist))
1558 (defun elmo-nntp-folder-process-crosspost (folder number-alist)
1559 ;; 2.1. At elmo-folder-process-crosspost, setup `reads' slot from
1560 ;; `elmo-crosspost-message-alist'.
1561 ;; 2.2. remove crosspost entry for current newsgroup from
1562 ;; `elmo-crosspost-message-alist'.
1563 (let (cross-deletes reads entity ngs)
1564 (dolist (cross elmo-crosspost-message-alist)
1566 (when (setq entity (rassoc (nth 0 cross) number-alist))
1567 (setq reads (cons (car entity) reads)))
1568 (when (setq entity (elmo-msgdb-overview-get-entity
1570 (elmo-folder-msgdb folder)))
1571 (setq reads (cons (elmo-msgdb-overview-entity-get-number entity)
1574 (if (setq ngs (delete (elmo-nntp-folder-group-internal folder)
1576 (setcar (cdr cross) ngs)
1577 (setq cross-deletes (cons cross cross-deletes)))
1578 (setq elmo-crosspost-message-alist-modified t)))
1579 (dolist (dele cross-deletes)
1580 (setq elmo-crosspost-message-alist (delq
1582 elmo-crosspost-message-alist)))
1583 (elmo-nntp-folder-set-reads-internal folder reads)))
1585 (luna-define-method elmo-folder-list-unreads-internal
1586 ((folder elmo-nntp-folder) unread-marks mark-alist)
1587 ;; 2.3. elmo-folder-list-unreads return unread message list according to
1589 (let ((mark-alist (or mark-alist (elmo-msgdb-get-mark-alist
1590 (elmo-folder-msgdb folder)))))
1591 (elmo-living-messages (delq nil
1594 (if (member (nth 1 x) unread-marks)
1597 (elmo-nntp-folder-reads-internal folder))))
1600 (product-provide (provide 'elmo-nntp) (require 'elmo-version))
1602 ;;; elmo-nntp.el ends here