home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / nnspool.el < prev    next >
Encoding:
Text File  |  1992-11-25  |  20.4 KB  |  589 lines
  1. ; Path: hal.com!olivea!uunet!hotmomma!sdb
  2. ; From: sdb@ssr.com (Scott Ballantyne)
  3. ; Newsgroups: gnu.emacs.sources
  4. ; Subject: NEW nnspool.el (uses CNews nov database)
  5. ; Date: 17 Nov 92 00:25:20 GMT
  6. ; Organization: ScotSoft Research
  7. ; 
  8. ; One of the developers of CNews (Geoff Collyer) has implemented a
  9. ; common newsreader database which will be standard with all future
  10. ; CNews distributions. On the whole, this is a great improvement,
  11. ; certainly better than groveling through the spool or developing yet
  12. ; another newsreader database implementation.
  13. ; 
  14. ; Below the 'snip' line, is a version of nnspool.el which causes emacs
  15. ; to default to the use of the overview database, but remains compatible
  16. ; with all news systems (B-News, and CNews without the news database).
  17. ; If this database is not found, then it will try to use the gnusgethdrs
  18. ; program (an earlier speedup to nnspool) and if that is not found, will
  19. ; use the original (quite slow) method.
  20. ; 
  21. ; I'm including the entire file below, the diffs were almost the same
  22. ; size. If anyone wants the source to gnusgethdrs.c, send me mail.
  23. ; 
  24. ; Enjoy,
  25. ; Scott
  26. ; ---
  27. ; sdb@ssr.com
  28. ; 
  29. ; ---------------------------------snip---------------------------------
  30. ;;; Spool access using NNTP for GNU Emacs
  31. ;; Copyright (C) 1988, 1989 Fujitsu Laboratories LTD.
  32. ;; Copyright (C) 1988, 1989, 1990 Masanobu UMEDA
  33. ;; $Header: nnspool.el,v 1.10 90/03/23 13:25:25 umerin Locked $
  34. ;;
  35. ;; LCD Archive Entry:
  36. ;; nnspool|Scott Ballantyne|sdb@ssr.com|
  37. ;; Spool access using NNTP for GNU Emacs.|
  38. ;; 92-11-17||~/interfaces/nnspool.el.Z|
  39. ;;
  40. ;; Modifications Copright (C) 1991, 1992 Scott Ballantyne, and
  41. ;; released under the same conditions as the original.
  42. ;;
  43. ;; Newest modification: Use new .overview databse in new C-News version,
  44. ;; if no .overview file found, try header frobnicator and then original
  45. ;; method (in that order).
  46. ;;
  47. ;; Earlier modifications:
  48. ;; nnspool-replace-chars-in-string: Slightly faster than original
  49. ;; nnspool-find-article-by-message-id: Uses a database lookup - much faster.
  50. ;; nnspool-retrieve-headers: Uses a C program to scan the spool, this
  51. ;; avoids having to read in the entire article just to get at the headers.
  52. ;; Other changes make this function considerably faster.  
  53. ;;
  54. ;; NOTE: These modifications were tested under C-News, and in fact the
  55. ;;       c program 'gnusgethdrs.c' requires libcnews.a and some of the
  56. ;;       C-News headers, so it is not likely to work if you are using
  57. ;;       B-News.  The old functions are still here, and you can still
  58. ;;       have them called by setting the values of certain variables
  59. ;;       appropriately. See the documentation for:
  60. ;;
  61. ;; nnspool-dbm-program
  62. ;; nnspool-dbm-args
  63. ;; nnspool-header-frobnicator
  64. ;; 
  65. ;; to see how these variables affect the operation of gnus.
  66. ;;
  67. ;; Scott (sdb@ssr.com)
  68.  
  69. ;; GNU Emacs is distributed in the hope that it will be useful,
  70. ;; but WITHOUT ANY WARRANTY.  No author or distributor
  71. ;; accepts responsibility to anyone for the consequences of using it
  72. ;; or for whether it serves any particular purpose or works at all,
  73. ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  74. ;; License for full details.
  75.  
  76. ;; Everyone is granted permission to copy, modify and redistribute
  77. ;; GNU Emacs, but only under the conditions described in the
  78. ;; GNU Emacs General Public License.   A copy of this license is
  79. ;; supposed to have been given to you along with GNU Emacs so you
  80. ;; can know your rights and responsibilities.  It should be in a
  81. ;; file named COPYING.  Among other things, the copyright notice
  82. ;; and this notice must be preserved on all copies.
  83.  
  84. (provide 'nnspool)
  85. (require 'nntp)
  86.  
  87. (defvar nnspool-inews-program news-inews-program
  88.   "*Program to post news.")
  89.  
  90. (defvar nnspool-inews-switches '("-h")
  91.   "*Switches for nnspool-request-post to pass to `inews' for posting news.")
  92.  
  93. (defvar nnspool-spool-directory news-path
  94.   "*Local news spool directory.")
  95.  
  96. (defvar nnspool-active-file "/usr/lib/news/active"
  97.   "*Local news active file.")
  98.  
  99. (defvar nnspool-history-file "/usr/lib/news/history"
  100.   "*Local news history file.")
  101.  
  102. (defvar nnspool-dbm-program "/usr/lib/newsbin/dbz"
  103.   "*Program used to search history database")
  104.  
  105. (defvar nnspool-dbm-args "-ix"
  106.   "*Arguments to pass to nnspool-dbm-program")
  107.  
  108. (defvar nnspool-header-frobnicator "/usr/local/bin/gnusgethdrs"
  109.   "*Program to retrieve headers from spool.")
  110.  
  111.  
  112. (defconst nnspool-version "NNSPOOL 1.2x"
  113.   "Version numbers of this version of NNSPOOL.")
  114.  
  115. (defvar nnspool-current-directory nil
  116.   "Current news group directory.")
  117.  
  118. ;;;
  119. ;;; Replacement of Extended Command for retrieving many headers.
  120. ;;;
  121.  
  122. (defun nnspool-retrieve-headers (sequence)
  123.   "Return list of article headers specified by SEQUENCE of article numbers.
  124. The format of list is
  125.  `([NUMBER SUBJECT FROM XREF LINES DATE MESSAGE-ID REFERENCES] ...)'.
  126. Reader macros for the vector are defined as `nntp-header-FIELD'.
  127. Writer macros for the vector are defined as `nntp-set-header-FIELD'.
  128. News group must be selected before calling me."
  129.   (let ((overviewfile (concat (file-name-as-directory nnspool-current-directory) ".overview"))
  130.     (number (length sequence))
  131.     (count 0)
  132.     (headers nil)
  133.     (article 0)
  134.     (subject nil)
  135.     (message-id nil)
  136.     (from nil)
  137.     (xref nil)
  138.     (lines 0)
  139.     (date nil)
  140.     (references nil))
  141.  
  142.     ;; If no .overview file found, use try to use the header frobnicator, if
  143.     ;; that's not available, revert to the original approach.
  144.     ;; Hopefully this will allow this module to remain compatible with all
  145.     ;; news systems.
  146.     ;; One optimization which is useful: For single article requests,
  147.     ;; *DO* use one of the older methods, since that is less overhead than
  148.     ;; retrieving the entire .overview file
  149.     (if (or (= 1 number) (not (file-readable-p overviewfile)))
  150.     (if (null nnspool-header-frobnicator)
  151.         (nnspool-slowly-retrieve-headers)
  152.       (nnspool-use-header-frobnicator))
  153.       (save-excursion
  154.     (set-buffer nntp-server-buffer)
  155.     (erase-buffer)
  156.     (message "Retrieving headers...")
  157.     (insert-file-contents overviewfile)
  158.     (message "Searching for headers...")
  159.     ;;
  160.     ;; Delete all lines that do not refer to articles we want.
  161.     ;; This is a performance win for the most common case, where someone is reading
  162.     ;; a big gob of articles in the 'middle' of the newsgroup.
  163.     ;;
  164.     (delete-region (point-min)
  165.                (progn (re-search-forward
  166.                    (concat "^" (int-to-string (apply 'min sequence)) "\t") nil t)
  167.                   (beginning-of-line) (point)))
  168.     
  169.     (goto-char (point-max))
  170.     (delete-region (progn (re-search-backward (concat "^" (int-to-string (apply 'max sequence)) "\t") nil t)
  171.                   (forward-line 1) (beginning-of-line) (point))
  172.                (point-max))
  173.     (goto-char (point-min))
  174.     (while (not (eobp))
  175.       (if (memq (string-to-int (buffer-substring (point) (save-excursion (forward-word 1) (point)))) sequence)
  176.           (forward-line 1)
  177.         (delete-region (point) (1+ (save-excursion (end-of-line) (point))))))
  178.     ;;
  179.     ;; Now stuff articles into vector
  180.     ;;
  181.     ;; overview file has (separated by tabs)
  182.     ;; number subj author date msgid ref bytecount linecount
  183.     ;; we want
  184.     ;; NUMBER SUBJ authr  xref lines date msgid references
  185.     (goto-char (point-min))
  186.     (while (not (eobp))
  187.       (beginning-of-line)        ; make sure we are start of line
  188.       (setq position (point))
  189.       (setq article  (string-to-int (buffer-substring position (progn (search-forward "\t") (1- (point))))))
  190.       (setq position (point))
  191.       (setq subject (buffer-substring position (progn (search-forward "\t") (1- (point)))))
  192.       (setq position (point))
  193.       (setq from (buffer-substring position (progn (search-forward "\t") (1- (point)))))
  194.       (setq position (point))
  195.       (setq date (buffer-substring position (progn (search-forward "\t") (1- (point)))))
  196.       (setq position (point))
  197.       (setq message-id (buffer-substring position (progn (search-forward "\t") (1- (point)))))
  198.       (setq position (point))
  199.       (if (/= (following-char) '?\t)
  200.           (setq references (buffer-substring position (progn (search-forward "\t") (1- (point)))))
  201.         (setq references nil)
  202.         (forward-char 1))
  203.       (search-forward "\t")        ;skip byte-count for now
  204.       (if (memq (following-char) '(?\t ?\n))
  205.           (setq lines 0)
  206.         (setq lines (string-to-int (buffer-substring (point) (progn (forward-word 1) (point))))))
  207.       (setq headers (cons (vector article subject from xref lines date message-id references) headers))
  208.       (setq count (1+ count))
  209.       (forward-line 1)
  210.       (and (numberp nntp-large-newsgroup)
  211.            (> number nntp-large-newsgroup)
  212.            (zerop (% count 20))
  213.            (message "%d%% done." (/ (* count 100) number))))
  214.       (message "")
  215.       (and (numberp nntp-large-newsgroup)
  216.            (> number nntp-large-newsgroup)
  217.            (message "100%% of headers received."))
  218.       (nreverse headers)))))
  219.  
  220.       
  221. (defun nnspool-use-header-frobnicator ()
  222.   "Process articles by calling an external frobnicator program"
  223.   (save-excursion
  224.     (set-buffer nntp-server-buffer)
  225.     (erase-buffer)
  226.     (let ((process-connection-type nil) ;use a pipe
  227.       (number (length sequence))
  228.       (count 0)
  229.       (headers nil))     ; result list
  230.       (message "Searching %s for headers." nnspool-current-directory)
  231.       (apply 'call-process nnspool-header-frobnicator nil t nil
  232.          nnspool-current-directory
  233.          (mapcar 'int-to-string sequence))
  234.       (goto-char (point-min))
  235.       (while (not (eobp))
  236.     (let ((hdrs nil)
  237.           (i 0))
  238.       (while (< i 8)
  239.         (setq hdrs
  240.           (cons (cond ((= (following-char) 10) nil)
  241.                   ((or (= 3 i) (= 7 i))
  242.                    (string-to-int (buffer-substring
  243.                            (point) (save-excursion (end-of-line) (point)))))
  244.                   (t (buffer-substring
  245.                   (point) (save-excursion (end-of-line) (point))))) hdrs))
  246.         (forward-line 1)
  247.         (setq i (1+ i)))
  248.       (setq headers (cons (apply 'vector hdrs) headers)))
  249.     (setq count (1+ count))
  250.     (and (numberp nntp-large-newsgroup)
  251.          (> number nntp-large-newsgroup)
  252.          (zerop (% count 20))
  253.          (message "NNSPOOL: %d%% of headers received."
  254.               (/ (* count 100) number))))
  255.       (message "")    ; needed to remove Searching
  256.       (and (numberp nntp-large-newsgroup)
  257.        (> number nntp-large-newsgroup)
  258.        (message "NNSPOOL: 100%% of headers received."))
  259.       (nreverse headers))))
  260.  
  261. (defun nnspool-slowly-retrieve-headers ()
  262.   "This is the original form of nnspool-retrieve-headers.
  263. It is called when the variable nnspool-dbm-program is nil.
  264. For details, see the documentation for nnspool-retrieve-headers."
  265.   (save-excursion
  266.     (set-buffer nntp-server-buffer)
  267.     ;;(erase-buffer)
  268.     (let ((file nil))
  269.       (while sequence
  270.     ;;(nntp-send-strings-to-server "HEAD" (car sequence))
  271.     (setq article (car sequence))
  272.     (setq file
  273.           (concat nnspool-current-directory (prin1-to-string article)))
  274.     (if (and (file-exists-p file)
  275.          (not (file-directory-p file)))
  276.         (progn
  277.           (erase-buffer)
  278.           (insert-file-contents file)
  279.           ;; Make message body invisible.
  280.           (goto-char (point-min))
  281.           (search-forward "\n\n" nil 'move)
  282.           (narrow-to-region (point-min) (point))
  283.           ;; Fold continuation lines.
  284.           (goto-char (point-min))
  285.           (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t)
  286.         (replace-match " " t t))
  287.           ;; Make it possible to search for `\nFIELD'.
  288.           (goto-char (point-min))
  289.           (insert "\n")
  290.           ;; Extract From:
  291.           (goto-char (point-min))
  292.           (if (search-forward "\nFrom: " nil t)
  293.           (setq from (buffer-substring
  294.                   (point)
  295.                   (save-excursion (end-of-line) (point))))
  296.         (setq from "(Unknown User)"))
  297.           ;; Extract Subject:
  298.           (goto-char (point-min))
  299.           (if (search-forward "\nSubject: " nil t)
  300.           (setq subject (buffer-substring
  301.                  (point)
  302.                  (save-excursion (end-of-line) (point))))
  303.         (setq subject "(None)"))
  304.           ;; Extract Message-ID:
  305.           (goto-char (point-min))
  306.           (if (search-forward "\nMessage-ID: " nil t)
  307.           (setq message-id (buffer-substring
  308.                     (point)
  309.                     (save-excursion (end-of-line) (point))))
  310.         (setq message-id nil))
  311.           ;; Extract Date:
  312.           (goto-char (point-min))
  313.           (if (search-forward "\nDate: " nil t)
  314.           (setq date (buffer-substring
  315.                   (point)
  316.                   (save-excursion (end-of-line) (point))))
  317.         (setq date nil))
  318.           ;; Extract Lines:
  319.           (goto-char (point-min))
  320.           (if (search-forward "\nLines: " nil t)
  321.           (setq lines (string-to-int
  322.                    (buffer-substring
  323.                 (point)
  324.                 (save-excursion (end-of-line) (point)))))
  325.         (setq lines 0))
  326.           ;; Extract Xref:
  327.           (goto-char (point-min))
  328.           (if (search-forward "\nXref: " nil t)
  329.           (setq xref (buffer-substring
  330.                   (point)
  331.                   (save-excursion (end-of-line) (point))))
  332.         (setq xref nil))
  333.           ;; Extract References:
  334.           (goto-char (point-min))
  335.           (if (search-forward "\nReferences: " nil t)
  336.           (setq references (buffer-substring
  337.                     (point)
  338.                     (save-excursion (end-of-line) (point))))
  339.         (setq references nil))
  340.           (setq headers
  341.             (cons (vector article subject from
  342.                   xref lines date
  343.                   message-id references) headers))
  344.           ))
  345.     (setq sequence (cdr sequence))
  346.     (setq count (1+ count))
  347.     (and (numberp nntp-large-newsgroup)
  348.          (> number nntp-large-newsgroup)
  349.          (zerop (% count 20))
  350.          (message "NNSPOOL: %d%% of headers received."
  351.               (/ (* count 100) number)))
  352.     )
  353.       (and (numberp nntp-large-newsgroup)
  354.        (> number nntp-large-newsgroup)
  355.        (message "NNSPOOL: 100%% of headers received."))
  356.       (nreverse headers))))
  357.  
  358.  
  359. ;;;
  360. ;;; Replacement of NNTP Raw Interface.
  361. ;;;
  362.  
  363. (defun nnspool-open-server (host &optional service)
  364.   "Open news server on HOST.
  365. If HOST is nil, use value of environment variable `NNTPSERVER'.
  366. If optional argument SERVICE is non-nil, open by the service name."
  367.   (let ((host (or host (getenv "NNTPSERVER")))
  368.     (status nil))
  369.     (setq nntp-status-string "")
  370.     (cond ((and (file-directory-p nnspool-spool-directory)
  371.         (file-exists-p nnspool-active-file)
  372.         (string-equal host (system-name)))
  373.        (setq status (nnspool-open-server-internal host service)))
  374.       ((string-equal host (system-name))
  375.        (setq nntp-status-string
  376.          (format "%s has no news spool.  Goodbye." host)))
  377.       ((null host)
  378.        (setq nntp-status-string "NNTP server is not specified."))
  379.       (t
  380.        (setq nntp-status-string
  381.          (format "NNSPOOL: cannot talk to %s." host)))
  382.       )
  383.     status
  384.     ))
  385.  
  386. (defun nnspool-close-server ()
  387.   "Close news server."
  388.   (nnspool-close-server-internal))
  389.  
  390. (fset 'nnspool-request-quit (symbol-function 'nnspool-close-server))
  391.  
  392. (defun nnspool-server-opened ()
  393.   "Return server process status, T or NIL.
  394. If the stream is opened, return T, otherwise return NIL."
  395.   (and nntp-server-buffer
  396.        (get-buffer nntp-server-buffer)))
  397.  
  398. (defun nnspool-status-message ()
  399.   "Return server status response as string."
  400.   nntp-status-string
  401.   )
  402.  
  403. (defun nnspool-request-article (id)
  404.   "Select article by message ID (or number)."
  405.   (let ((file (if (stringp id)
  406.           (nnspool-find-article-by-message-id id)
  407.         (concat nnspool-current-directory (prin1-to-string id)))))
  408.     (if (and (stringp file)
  409.          (file-exists-p file)
  410.          (not (file-directory-p file)))
  411.     (save-excursion
  412.       (nnspool-find-file file)))
  413.     ))
  414.  
  415. (defun nnspool-request-body (id)
  416.   "Select article body by message ID (or number)."
  417.   (if (nnspool-request-article id)
  418.       (save-excursion
  419.     (set-buffer nntp-server-buffer)
  420.     (goto-char (point-min))
  421.     (if (search-forward "\n\n" nil t)
  422.         (delete-region (point-min) (point)))
  423.     t
  424.     )
  425.     ))
  426.  
  427. (defun nnspool-request-head (id)
  428.   "Select article head by message ID (or number)."
  429.   (if (nnspool-request-article id)
  430.       (save-excursion
  431.     (set-buffer nntp-server-buffer)
  432.     (goto-char (point-min))
  433.     (if (search-forward "\n\n" nil t)
  434.         (delete-region (1- (point)) (point-max)))
  435.     t
  436.     )
  437.     ))
  438.  
  439. (defun nnspool-request-stat (id)
  440.   "Select article by message ID (or number)."
  441.   (error "NNSPOOL: STAT is not implemented."))
  442.  
  443. (defun nnspool-request-group (group)
  444.   "Select news GROUP."
  445.   (let ((pathname (nnspool-article-pathname
  446.            (nnspool-replace-chars-in-string group ?. ?/))))
  447.     (if (file-directory-p pathname)
  448.     (setq nnspool-current-directory pathname))
  449.     ))
  450.  
  451. (defun nnspool-request-list ()
  452.   "List valid newsgoups."
  453.   (save-excursion
  454.     (nnspool-find-file nnspool-active-file)))
  455.  
  456. (defun nnspool-request-last ()
  457.   "Set current article pointer to the previous article
  458. in the current news group."
  459.   (error "NNSPOOL: LAST is not implemented."))
  460.  
  461. (defun nnspool-request-next ()
  462.   "Advance current article pointer."
  463.   (error "NNSPOOL: NEXT is not implemented."))
  464.  
  465. (defun nnspool-request-post ()
  466.   "Post a new news in current buffer."
  467.   (save-excursion
  468.     ;; We have to work in the server buffer because of NEmacs hack.
  469.     (copy-to-buffer nntp-server-buffer (point-min) (point-max))
  470.     (set-buffer nntp-server-buffer)
  471.     (apply 'call-process-region
  472.        (point-min) (point-max)
  473.        nnspool-inews-program 'delete t nil nnspool-inews-switches)
  474.     (prog1
  475.     (or (zerop (buffer-size))
  476.         ;; If inews returns strings, it must be error message 
  477.         ;;  unless SPOOLNEWS is defined.  
  478.         ;; This condition is very weak, but there is no good rule 
  479.         ;;  identifying errors when SPOOLNEWS is defined.  
  480.         ;; Suggested by ohm@kaba.junet.
  481.         (string-match "spooled" (buffer-string)))
  482.       ;; Make status message by unfolding lines.
  483.       (subst-char-in-region (point-min) (point-max) ?\n ?\\ 'noundo)
  484.       (setq nntp-status-string (buffer-string))
  485.       (erase-buffer))
  486.     ))
  487.  
  488.  
  489. ;;;
  490. ;;; Replacement of Low-Level Interface to NNTP Server.
  491. ;;; 
  492.  
  493. (defun nnspool-open-server-internal (host &optional service)
  494.   "Open connection to news server on HOST by SERVICE (default is nntp)."
  495.   (save-excursion
  496.     (if (not (string-equal host (system-name)))
  497.     (error "NNSPOOL: cannot talk to %s." host))
  498.     ;; Initialize communication buffer.
  499.     (setq nntp-server-buffer (get-buffer-create " *nntpd*"))
  500.     (set-buffer nntp-server-buffer)
  501.     (buffer-flush-undo (current-buffer))
  502.     (erase-buffer)
  503.     (kill-all-local-variables)
  504.     (setq case-fold-search t)        ;Should ignore case.
  505.     (setq nntp-server-process nil)
  506.     (setq nntp-server-name host)
  507.     ;; It is possible to change kanji-fileio-code in this hook.
  508.     (run-hooks 'nntp-server-hook)
  509.     t
  510.     ))
  511.  
  512. (defun nnspool-close-server-internal ()
  513.   "Close connection to news server."
  514.   (if (get-file-buffer nnspool-history-file)
  515.       (kill-buffer (get-file-buffer nnspool-history-file)))
  516.   (if nntp-server-buffer
  517.       (kill-buffer nntp-server-buffer))
  518.   (setq nntp-server-buffer nil)
  519.   (setq nntp-server-process nil))
  520.  
  521. ;; This uses a fast dbm lookup, instead of groveling through the
  522. ;; history file itself.
  523. (defun nnspool-find-article-by-message-id (id)
  524.   "Return full pathname of an article identified by message-ID."
  525.     (if (null nnspool-dbm-program)
  526.     (nnspool-slowly-find-article-by-message-id id)
  527.       (save-excursion
  528.     (set-buffer nntp-server-buffer)
  529.     (erase-buffer)
  530.     (insert id)
  531.     (call-process-region (point-min) (point-max)
  532.                  nnspool-dbm-program t t nil
  533.                  nnspool-dbm-args
  534.                  nnspool-history-file)
  535.     (goto-char (point-max))
  536.     ; Note that this is based on the C-News format history file.
  537.     ; I don't think (but dunno) if B-Bews used the same format.
  538.     (if (re-search-backward "[ \t]\\([a-z.]+/[0-9]+$\\)" nil t)
  539.         (concat (file-name-as-directory nnspool-spool-directory)
  540.              (nnspool-replace-chars-in-string
  541.               (buffer-substring (match-beginning 1) (match-end 1)) ?. ?/))))))
  542.  
  543. ;; Original version                
  544. (defun nnspool-slowly-find-article-by-message-id (id)
  545.   "Slowly return full pathname of an artilce identified by message-ID."
  546.   (save-excursion
  547.     (let ((buffer (get-file-buffer nnspool-history-file)))
  548.       (if buffer
  549.       (set-buffer buffer)
  550.     ;; Finding history file may take lots of time.
  551.     (message "Reading history file...")
  552.     (set-buffer (find-file-noselect nnspool-history-file))
  553.     (message "Reading history file... done")))
  554.     ;; Search from end of the file. I think this is much faster than
  555.     ;; do from the beginning of the file.
  556.     (goto-char (point-max))
  557.     (if (re-search-backward
  558.      (concat "^" (regexp-quote id)
  559.          "[ \t].*[ \t]\\([^ \t/]+\\)/\\([0-9]+\\)[ \t]*$") nil t)
  560.     (let ((group (buffer-substring (match-beginning 1) (match-end 1)))
  561.           (number (buffer-substring (match-beginning 2) (match-end 2))))
  562.       (concat (nnspool-article-pathname
  563.            (nnspool-replace-chars-in-string group ?. ?/))
  564.           number))
  565.       )))
  566.  
  567. (defun nnspool-find-file (file)
  568.   "Insert FILE in server buffer safely."
  569.   (set-buffer nntp-server-buffer)
  570.   (erase-buffer)
  571.   (condition-case ()
  572.       (progn (insert-file-contents file) t)
  573.     (file-error nil)
  574.     ))
  575.  
  576. (defun nnspool-article-pathname (group)
  577.   "Make pathname for GROUP."
  578.   (concat (file-name-as-directory nnspool-spool-directory) group "/"))
  579.  
  580. (defun nnspool-replace-chars-in-string (string from to)
  581.   "Replace characters in STRING from FROM to TO."
  582.   (let ((string (copy-sequence string))
  583.     (len (length string)))
  584.     (while (> len 0)
  585.       (setq len (1- len))
  586.       (if (= (aref string len) from)
  587.       (aset string len to)))
  588.     string))
  589.