;ELC ;;; compiled by larsi@narfi.ifi.uio.no on Fri Nov 3 03:30:36 1995 ;;; from file /home/menja/c/larsi/dgnus/lisp/nnbabyl.el ;;; emacs version 19.29.90.3. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nnbabyl.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!‡" [require nnheader rmail nnmail] 2) #@61 The name of the rmail box file in the users home directory. (defvar nnbabyl-mbox-file (expand-file-name "~/RMAIL") (#$ . 540)) #@48 The name of the active file for the rmail box. (defvar nnbabyl-active-file (expand-file-name "~/.rmail-active") (#$ . 673)) #@75 If non-nil, nnbabyl will check the incoming mail file and split the mail. (defvar nnbabyl-get-new-mail t (#$ . 803)) #@48 Hook run narrowed to an article before saving. (defvar nnbabyl-prepare-save-mail-hook nil (#$ . 926)) (byte-code "ÀÁ!„ÂÁ BÀ‡" [boundp nnbabyl-mail-delimiter "" current-load-list] 2) #@18 nnbabyl version. (defconst nnbabyl-version "nnbabyl 1.0" (#$ . 1119)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ BÀÅ!„ ÆÅ BÀÇ!„-ÂÇ BÀÈ!„:ÂÈ BÀÉ!„GÂ É BÀÊ!„TÂ\nÊ BÀË!„qÌ\fDÍ DÎDÏÐѯ Ë B‡" [boundp nnbabyl-mbox-buffer nil current-load-list nnbabyl-current-group nnbabyl-status-string "" nnbabyl-group-alist nnbabyl-active-timestamp nnbabyl-current-server nnbabyl-server-alist nnbabyl-server-variables nnbabyl-mbox-file nnbabyl-active-file nnbabyl-get-new-mail (nnbabyl-current-group nil) (nnbabyl-status-string "") (nnbabyl-group-alist nil)] 6) (defalias 'nnbabyl-retrieve-headers #[(sequence &optional newsgroup server) "ŠqˆÁ ˆ\nGÃĉ‰‰ \nË\f!ˆ\n@;ƒ(Í‚é\nƒº\n@Î!qˆÐÄÑ#„LÒÄÑ#ƒˆÓÔPÄÑ#ˆÖ×!„bØyÃU„U`ÐÙÄÑ#ˆ`SqˆÚÛ!ܱˆÝ #ˆdbˆÞcˆ\nA T §ƒ(\nVƒ( à¦ÃUƒ(!ƒ(âã ä_\n¥\"ˆ‚(§ƒÑ\nVƒÑ!ƒÑâå!ˆqˆebˆæçÄÑ#ƒèèéщ#ˆ‚×Í.‡" [nntp-server-buffer erase-buffer sequence 0 nil stop start art-string article count number nnbabyl-possibly-change-newsgroup newsgroup headers nnbabyl-article-string nnbabyl-mbox-buffer search-forward t search-backward re-search-backward "^" nnbabyl-mail-delimiter looking-at ".+:" 1 "\n\n" "221 " int-to-string " Article retrieved.\n" insert-buffer-substring ".\n" nnmail-large-newsgroup 20 gnus-verbose-backends message "nnbabyl: Receiving headers... %d%%" 100 "nnbabyl: Receiving headers...done" re-search-forward "\\( ?\n[ ]+\\)+" replace-match " "] 6]) (defalias 'nnbabyl-open-server #[(server &optional defs) "À ˆ \nšƒ Ç\nƒ\nÄ !DBÇ \"‰ƒ6ÉA@!ˆÊ\"‚<Ë \f\"ˆ) ‰‡" [nnheader-init-server-buffer server nnbabyl-current-server t nnheader-save-variables nnbabyl-server-variables nnbabyl-server-alist assoc state nnheader-restore-variables delq nnheader-set-init-variables defs] 4]) (defalias 'nnbabyl-close-server #[(&optional server) "À‡" [t] 1]) (defalias 'nnbabyl-server-opened #[(&optional server) " š…\n…Ã\n!…\f…Ã\f!‡" [server nnbabyl-current-server nnbabyl-mbox-buffer buffer-name nntp-server-buffer] 2]) (defalias 'nnbabyl-status-message #[(&optional server) "‡" [nnbabyl-status-string] 1]) (defalias 'nnbabyl-request-article #[(article &optional newsgroup server buffer) "À !ˆ\n;?…›Š qˆebˆÄÅ\n!ÆÇ#…šÆ‰‰ \nËÌ PÆÇ#ˆÎÏ!„:ÐyÑU„-`\nÒÌ PÆÇ#ƒMÓy„Pdbˆ` †Z‰qˆÖ ˆ× \n #ˆebˆÎØ!ÄÙÆÇ#ƒ˜ƒ‰eÐyˆ`|ˆ‚˜Ñyˆ`ÄÚÆÇ#†–`|ˆ,Ç)‡" [nnbabyl-possibly-change-newsgroup newsgroup article nnbabyl-mbox-buffer search-forward nnbabyl-article-string nil t summary-line stop start re-search-backward "^" nnbabyl-mail-delimiter looking-at ".+:" 1 0 re-search-forward -1 buffer nntp-server-buffer erase-buffer insert-buffer-substring "Summary-line:" "\n*** EOOH ***" "\n\n"] 6]) (defalias 'nnbabyl-request-group #[(group &optional server dont-check) "ŠÀ !…A\nƒÂAÄ !ˆŠ qˆÆ ˆÇ \" ÊË A@A A@@ZT A@@ A@A @%cˆ*Ã)‡" [nnbabyl-possibly-change-newsgroup group dont-check t nnbabyl-get-new-mail nntp-server-buffer erase-buffer assoc nnbabyl-group-alist active format "211 %d %d %d %s\n"] 6]) (defalias 'nnbabyl-close-group #[(group &optional server) "À‡" [t] 1]) (defalias 'nnbabyl-request-create-group #[(group &optional server) "ÀÁ!ˆÂ \f\"„ Å ÇÈB‰D\fBÉ\f\n\"ˆ)ˇ" [nnmail-activate nnbabyl assoc group nnbabyl-group-alist nil active 1 0 nnmail-save-active nnbabyl-active-file t] 3]) (defalias 'nnbabyl-request-list #[(&optional server) "ƒÁ ˆŠÂ !†Ä Æ \"ˆÂ !)‡" [server nnbabyl-get-new-mail nnmail-find-file nnbabyl-active-file nnmail-get-active nnbabyl-group-alist nnmail-save-active] 3]) (defalias 'nnbabyl-request-newgroups #[(date &optional server) "À !‡" [nnbabyl-request-list server] 2]) (defalias 'nnbabyl-request-list-newsgroups #[(&optional server) "À‡" ["nnbabyl: LIST NEWSGROUPS is not implemented." nnbabyl-status-string nil] 1]) (defalias 'nnbabyl-request-post #[(&optional server) "ÀÁ!‡" [mail-send-and-exit nil] 2]) (defalias (quote nnbabyl-request-post-buffer) (quote nnmail-request-post-buffer)) (defalias 'nnbabyl-request-expire-articles #[(articles newsgroup &optional server force) "À !ˆ\nƒ\n !† ÅÇÉÊ!ˆŠ qˆÌedÇ#ˆ ƒxƒxebˆÎÏ @!ÇÅ#ƒo„UÑÒ `Lj`{\"\fV‰ƒgƒaÔÕ @\"ˆÖ ˆ‚o @B A‰ „*× ˆØ \"A@ebˆÎÏ@!ÇÅ#„ª@AXƒª‰@T ˆebˆ‚‡)Û\"ˆ ¤,‡" [nnbabyl-possibly-change-newsgroup newsgroup nnmail-expiry-wait-function nnmail-expiry-wait days t is-old nil rest nnmail-activate nnbabyl nnbabyl-mbox-buffer set-text-properties articles search-forward nnbabyl-article-string force nnmail-days-between current-time-string gnus-verbose-backends message "Deleting article %s..." nnbabyl-delete-mail save-buffer assoc nnbabyl-group-alist active nnmail-save-active nnbabyl-active-file] 5]) (defalias 'nnbabyl-request-move-article #[(article group server accept-form &optional last) "À !ˆÂÃ!ÄÇ  #ƒiŠqˆÊ !ˆebˆÌÍŠÎÏÄÐ#ˆ`)Ð#ƒ<Ñyˆ`Òyˆ`|ˆÓ!Õp!ˆ )ƒiŠqˆebˆÎ×!ÄÐ#ƒ`Ø ˆƒhÚ ˆ) *‡" [nnbabyl-possibly-change-newsgroup group get-buffer-create " *nnbabyl move*" nil result buf nnbabyl-request-article article server insert-buffer-substring nntp-server-buffer re-search-forward "^X-Gnus-Newsgroup:" search-forward "\n\n" t 0 1 eval accept-form kill-buffer nnbabyl-mbox-buffer nnbabyl-article-string nnbabyl-delete-mail last save-buffer] 6]) (defalias 'nnbabyl-request-accept-article #[(group &optional last) "pÀ‰ÄÅ!…hŠebˆÆÇÀÈ#ˆÉyˆŠÊË È#ƒ,`Ìyˆ`|ˆ‚) ;ƒ; ÎDC‚=Ð @)qˆdbˆÒÓ!ˆÔ•bˆÕ !ˆƒf× ˆØ\"ˆ\n)+‡" [nil beg result buf nnmail-activate nnbabyl search-forward "\n\n" t -1 re-search-backward "^X-Gnus-Newsgroup: " 1 group "" nnmail-split-methods nnbabyl-save-mail nnbabyl-mbox-buffer search-backward "\n" 0 insert-buffer last save-buffer nnmail-save-active nnbabyl-group-alist nnbabyl-active-file] 4]) (defalias 'nnbabyl-request-replace-article #[(article group buffer) "À !ˆŠ\nqˆebˆÃÄ !ÆÇ#…#Èlj\"ˆÉ\n!ˆË ˆÇ)‡" [nnbabyl-possibly-change-newsgroup group nnbabyl-mbox-buffer search-forward nnbabyl-article-string article nil t nnbabyl-delete-mail insert-buffer-substring buffer save-buffer] 4]) (defalias 'nnbabyl-delete-mail #[(&optional force leave-delim) "„Áyˆ`Âyˆ`|ˆŠŒ~ˆŠÃÄ PÆÇ#ˆƒ'Âyˆ`‚)Á”)ÂyˆÉÄ PÆÇ#ƒLo„GƒGÊyˆ`‚IÁ”†Md}ˆebˆ„_ÉËÆÇ#?…bed|*‡" [force 0 1 re-search-backward "^" nnbabyl-mail-delimiter nil t leave-delim re-search-forward -2 "^X-Gnus-Newsgroup: "] 5]) (defalias 'nnbabyl-possibly-change-newsgroup #[(newsgroup) "ƒ\nÁ!„ŠÂ ˆ) „ÄÅ!ˆ….Ç \"ƒ*‰‡É\nˇ" [nnbabyl-mbox-buffer buffer-name nnbabyl-read-mbox nnbabyl-group-alist nnmail-activate nnbabyl newsgroup assoc nnbabyl-current-group "No such group in file" nnbabyl-status-string nil] 3]) (defalias 'nnbabyl-article-string #[(article) "À ÂÃ\f!Å°‡" ["\nX-Gnus-Newsgroup: " nnbabyl-current-group ":" int-to-string article " "] 5]) #@68 Insert how many lines and chars there are in the body of the mail. (defalias 'nnbabyl-insert-lines #[nil "À‰ŠebˆÃÄÀÅ#…KÆÇ!ƒÃÄÀÅ#ˆd`ZÈ`d\"ÉZebˆÃÄÀÅ#ˆÊuˆŠËÌÀÅ#ƒC`Éyˆ`|ˆ)ÍÎ\n\"cˆ +‡" [nil chars lines search-forward "\n\n" t looking-at "\\*\\*\\* EOOH \\*\\*\\*" count-lines 1 -1 re-search-backward "^Lines: " format "Lines: %d\n"] 4 (#$ . 7853)]) (defalias 'nnbabyl-save-mail #[nil "ÀÁ!Ÿà ˆÄ\n!ˆÅ\n!ˆÆÇ!ˆ\n)‡" [nnmail-article-group nnbabyl-active-number group-art nnbabyl-insert-lines nnmail-insert-xref nnbabyl-insert-newsgroup-line run-hooks nnbabyl-prepare-save-mail-hook] 2]) (defalias 'nnbabyl-insert-newsgroup-line #[(group-art) "ŠebˆÀÁ!ƒÂÃĉ#ˆÅyˆ‚ebˆÀÆ!„*ŠÇcˆdbˆÈcˆ)ÉÊËÄ#ƒRÌuˆ ƒRÎÏ @@ @AÐ $cˆ A‰ „:)ć" [looking-at "From " replace-match "Mail-from: From " t 1 "\f" "\f\n0, unseen,,\n*** EOOH ***\n" "\n" search-forward "\n\n" nil -1 group-art format "X-Gnus-Newsgroup: %s:%d %s\n" current-time-string] 6]) (defalias 'nnbabyl-active-number #[(group) "À \n\"A@‰ƒ ‰AT¡ˆ‚ ĉB‰D\nB A)‡" [assoc group nnbabyl-group-alist active 1] 4]) (defalias 'nnbabyl-read-mbox #[nil "ÀÁ!ˆÂ !„!ŠÄ !‰qˆ ÇcˆÈed ÉÊ%ˆ) …8Ë !…8Š qˆÌ ÍÎ !8U)?…³ŠÏPщÕ ÑÖ#‰qˆ×p!ˆ~ˆÑÙ ˆebˆÚÑÉ#ˆÛ•ÚÑÉ#ƒ£Û•ÜÝÉ#„™bˆŠŒbˆ}ˆÞ ˆd*‰bˆ‚lßp!ƒ¬à ˆá\"#\",‡" [nnmail-activate nnbabyl file-exists-p nnbabyl-mbox-file create-file-buffer nnbabyl-mbox-buffer buffer-file-name "BABYL OPTIONS:\n\n" write-region t nomesg buffer-name buffer-size 7 file-attributes "^" nnbabyl-mail-delimiter nil end start delim nnheader-find-file-noselect raw buffer-disable-undo buffer-read-only fundamental-mode re-search-forward 0 search-backward "\nX-Gnus-Newsgroup: " nnbabyl-save-mail buffer-modified-p save-buffer nnmail-save-active nnbabyl-group-alist nnbabyl-active-file] 6]) (defalias 'nnbabyl-remove-incoming-delims #[nil "ebˆÀÁÂÃ#…ÄÅÉ#ˆ‚‡" [search-forward "" nil t replace-match "?"] 4]) #@25 Read new incoming mail. (defalias 'nnbabyl-get-new-mail #[(&optional group) "À ! ÄÄÇ ˆ?† ??…å\nƒÊ\n@!ƒ–ËÌ\n@!8ÍVƒ–ƒ:ÏÐ!ˆÑ\n@ÓP\"‰ƒ– BŠÔ\n@ \"ÕBÄØ ÙÚ $‰qˆebˆÛÜÄÚ#ƒzÝÞ!ˆ‚kqˆdbˆàáÄÚ#ˆÍ•bˆâ!ˆã!ˆ+\nA‰„ä!ƒ´Šå&'\"ˆqˆè ˆ)ƒ½éê!ˆ…å@+ƒÛÊ !ƒÛì !ƒÛí !ˆA‰„ÂÄ,‡" [nnmail-get-spool-files group spools group-in nil incoming incomings nnbabyl-read-mbox nnbabyl-get-new-mail nnmail-spool-file file-exists-p 7 file-attributes 0 gnus-verbose-backends message "nnbabyl: Reading incoming mail..." nnmail-move-inbox nnbabyl-mbox-file "-Incoming" nnmail-get-split-group nnbabyl-remove-incoming-delims nnmail-prepare-incoming-hook in-buf nnmail-split-incoming nnbabyl-save-mail t search-forward "\n\n" delete-char -1 nnbabyl-mbox-buffer search-backward "\n" insert-buffer-substring kill-buffer buffer-modified-p nnmail-save-active nnbabyl-group-alist nnbabyl-active-file save-buffer run-hooks nnmail-read-incoming-hook nnmail-delete-incoming file-writable-p delete-file] 6 (#$ . 9768)]) (provide (quote nnbabyl))