lisp/gnus/nnrss.el

32 (require 'gnus)
37 (require 'gnus-util)
50 (defvoo nnrss-directory (nnheader-concat gnus-directory "rss/")
72   "Field name used for DESCRIPTION.
73 To use the description in headers, put this name into `nnmail-extra-headers'.")
76   "Field name used for URL.
77 To use the description in headers, put this name into `nnmail-extra-headers'.")
82 ENTRY is the record of the current headline.  GROUP is the group name.
104   (gnus-replace-in-string string " *\n *" " "))
106 (defun nnrss-decode-group-name (group)
112   (setq group (nnrss-decode-group-name group))
144 			(concat (symbol-name nnrss-description-field)
152 			(concat (symbol-name nnrss-url-field)
161   (setq group (nnrss-decode-group-name group))
183   (setq group (nnrss-decode-group-name group))
203 	(let ((header (buffer-string))
208 	      ;; Enable encoding of Newsgroups header in XEmacs.
210 	      (rfc2047-header-encoding-alist
213 			 rfc2047-header-encoding-alist)
214 		 rfc2047-header-encoding-alist))
295 	     (insert header
296 		     "Content-Type: text/plain; charset=gnus-decoded\n"
309 			   (gnus-replace-in-string group "[\t\n ]+" "_")))))
334   (setq group (nnrss-decode-group-name group))
352   (setq group (nnrss-decode-group-name group))
549 	      (file-name-coding-system nnmail-pathname-coding-system))
554   (gnus-make-directory nnrss-directory)
556 	(file-name-coding-system nnmail-pathname-coding-system))
560       (gnus-prin1 `(setq nnrss-group-alist ',nnrss-group-alist))
562       (gnus-prin1 `(setq nnrss-server-data ',nnrss-server-data)))))
566   (setq nnrss-group-hashtb (gnus-make-hashtable))
576 	      (file-name-coding-system nnmail-pathname-coding-system))
580 	(gnus-sethash (or (nth 2 e) (nth 6 e)) t nnrss-group-hashtb)
587   (gnus-make-directory nnrss-directory)
589 	(file-name-coding-system nnmail-pathname-coding-system))
593       (gnus-prin1 `(setq nnrss-group-data ',nnrss-group-data)))))
595 (defun nnrss-make-filename (name server)
596   (expand-file-name
598     (concat name
606 (gnus-add-shutdown 'nnrss-close 'gnus)
664 	     (file-exists-p (setq file (expand-file-name
696 		     (not (gnus-gethash url nnrss-group-hashtb))
699 		   (not (gnus-gethash extra nnrss-group-hashtb))))
717 		(name))
729 	    (setq name (if (string-match "/\\([^/]*\\)$" url)
733 	    (setq enclosure (list url name len type))))
746 	(gnus-sethash (or url extra) t nnrss-group-hashtb)
771 	       (gnus-group-make-rss-group xmlurl)
799 	    "    <ownerName>" (user-full-name) "</ownerName>\n"
817   (insert "RSSDIR='" (expand-file-name nnrss-directory) "'\n")
825 (defun nnrss-translate-file-chars (name)
826   (let ((nnheader-file-name-translation-alist
827 	 (append nnheader-file-name-translation-alist '((?' . ?_)))))
828     (nnheader-translate-file-chars name)))
837   (let (category name url changed)
842 	      "<a name=\"\\([^\"]+\\)\">\\|<a href=\"\\(http://[^\"]*moreover\\.com[^\"]+page\\?c=\\([^\"&]+\\)&o=rss\\)" nil t)
846 		name (mm-url-decode-entities-string
850 	      (setq name (concat category "." name)))
851 	  (unless (assoc name nnrss-server-data)
853 	    (push (list name 0 url) nnrss-server-data)))))
857 (defun nnrss-node-text (namespace local-name element)
858   (let* ((node (assq (intern (concat namespace (symbol-name local-name)))
864 			   (gnus-replace-in-string
865 			    (gnus-replace-in-string
1085 		     (split-string (symbol-name prefix) ":")))