;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:39:30 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/gnusutil.el ;;; emacs version 19.34. ;;; 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 "`gnusutil.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÃ\fBÅÆ!ƒ#ÇÉÊ\")ƒ#ËÌ #ˆÇ‡" [require gnus "1.8" gnusutil-version current-load-list boundp gnus-version nil case-fold-search string-match "\\`Gnus 5" error "gnusutil %s doesn't work with %s"] 4) #@172 Assoc list of news groups in which special encoding is used. Each element is a list of news-group name (regular expression) and cons of coding-systems for read and write. (defvar gnusutil-news-groups nil (#$ . 711)) #@231 Specify that news group NAME is encoded in CODING-SYSTEM. Subject and article buffers are automatically converted appropriately. If CODING-SYSTEM is cons, the car/cdr part is regarded as coding-system for read/write respectively. (defalias 'gnusutil-add-group #[(name coding-system) ":„ ‰BÁ !PÄ \"‰ƒ ¡‚' B B‰)‡" [coding-system "^" regexp-quote name assoc gnusutil-news-groups group] 4 (#$ . 934)]) #@47 Return the coding-system for news group NAME. (defalias 'gnusutil-get-coding-system #[(name) "Á‰ƒ0Æ @@\"ƒ)È”ÈUƒ)È•\fVƒ)È• @A A‰„\n +‡" [gnusutil-news-groups -1 nil coding-system len groups string-match name 0] 4 (#$ . 1354)]) #@68 A flag to indicate if subject buffer is encoded or not. (obsolete) (defvar gnusutil-summary-encoded nil (#$ . 1601)) #@57 A flag to indicate if article buffer is encoded or not. (defvar gnusutil-article-encoded nil (#$ . 1724)) #@63 Coding-system for reading articles of the current news group. (defvar gnusutil-read-coding-system nil (#$ . 1836)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ BÀÅ!„ ÂÅ BÀÆ!„-ÂÆ B‡" [boundp gnusutil-subject nil current-load-list gnusutil-encoded-subject gnusutil-original-subject gnusutil-article-mode-line-leader] 2) (defalias 'gnusutil-code-convert1 #[(start end coding-system encoding) " W…Š\nƒÃ \f $‚à \f$)‡" [start end encoding code-convert coding-system *internal*] 5]) #@70 Convert the current buffer while keeping (window-start) and (point). (defalias 'gnusutil-code-convert #[(coding-system encoding) "…Áp!‰ƒË‚Äed $)‡" [coding-system get-buffer-window win ((byte-code "À !ˆ\nƒ ÃyˆÄeÅ \n$ˆÄÅ `\n$ˆÄ`d\n$ˆÇ ?….ÈÉ!‡" [select-window win encoding 0 gnusutil-code-convert1 window-start coding-system pos-visible-in-window-p move-to-window-line -1] 5)) gnusutil-code-convert1 encoding] 6 (#$ . 2326)]) #@196 Truncate SUBJECT to fit in COLUMN width. Also convert "%" to "%%" to escape from %-constructs in mode-line. If optional third arg CODING-SYSTEM is non-nil, SUBJECT is converted to the original. (defalias 'gnusutil-truncate-subject #[(subject maxclm &optional coding-system) "À !ÂÃ!ÄŠqˆ? Ê ˆ cˆƒ*Ëed\f$ˆebˆÄˆi‰ WƒDÎÏ Z\"ˆ‚[  Vƒ[Ð !ˆÑuˆÎÒ iZ\"ˆ`d|ˆebˆÓÔÄÕ#ƒpÖcˆ‚b× ,‡" [string-width subject get-buffer-create " *gnusutil-work-buf*" nil clm buf len coding-system mc-flag erase-buffer code-convert *internal* maxclm insert-char 32 move-to-column -1 46 search-forward "%" t 37 buffer-string] 6 (#$ . 2774)]) #@55 mode-line-buffer-identification for *Article* buffer. (defconst gnusutil-article-mode-line (quote ("GNUS: " gnusutil-article-mode-line-leader (gnusutil-article-encoded gnusutil-encoded-subject gnusutil-original-subject))) (#$ . 3413)) #@55 Set Article mode line string. (revised by 'gnusutil') (defalias 'gnusutil-article-set-mode-line #[nil "ÀÁ\n #Å„ÈÉ\"‰\n ‚7Ì\"  ƒ3Ì #‚5 \n)ÐÑ!‡" [format "%s/%s " gnus-newsgroup-name gnus-current-article gnusutil-article-mode-line-leader 17 maxlen gnusutil-subject make-string 32 gnusutil-original-subject gnusutil-encoded-subject gnusutil-truncate-subject gnusutil-read-coding-system gnusutil-article-mode-line mode-line-buffer-identification set-buffer-modified-p t] 5 (#$ . 3654)]) (defalias 'gnusutil-retrieve-headers #[(arg) " !Å!‰…È@!…@‰ ƒ&ÊË\f\"ˆ\f+‡" [*noconv* file-coding-system-for-read gnusutil-retrieve-headers-orig arg headers gnusutil-get-coding-system gnus-newsgroup-name coding-system coding-system-p gnusutil-read-coding-system mapcar #[(header) "À Âà !\f #\"‡" [nntp-set-header-subject header code-convert-string nntp-header-subject gnusutil-read-coding-system *internal*] 6]] 4]) (defalias 'gnusutil-request-article #[(arg) " !)‡" [*noconv* file-coding-system-for-read gnusutil-request-article-orig arg] 2]) (defalias 'gnusutil-Open-server-hook #[nil "ÀÁKMˆÁÂKMˆÃÄKMˆÄÅKM‡" [gnusutil-retrieve-headers-orig gnus-retrieve-headers gnusutil-retrieve-headers gnusutil-request-article-orig gnus-request-article gnusutil-request-article] 2]) (defalias 'gnusutil-Select-group-hook #[nil "À !‰…Ã\n@!…\n@)\f…ÅÆ\"‡" [gnusutil-get-coding-system gnus-newsgroup-name coding-system coding-system-p gnusutil-read-coding-system mapcar #[(header) "À Âà !\f #\"‡" [nntp-set-header-subject header code-convert-string nntp-header-subject gnusutil-read-coding-system *internal*] 6] gnus-newsgroup-headers] 4]) (defalias 'gnusutil-article-prepare-hook #[nil "…ÁÂ!Ä Æ\"ˆÆ‰‡" [gnus-current-headers eval (nntp-header-subject gnus-current-headers) gnusutil-subject gnusutil-code-convert gnusutil-read-coding-system t gnusutil-article-encoded] 3]) #@38 Toggle encoding of *Article* buffer. (defalias 'gnusutil-toggle-article-format #[nil "pÀÁ!ƒ  !‚ !…9\f…9\fqˆÇ È \n ? Ì \"ˆÍ\n!ˆ* q*‡" [boundp gnus-article-buffer get-buffer gnus-Article-buffer buf curbuf gnusutil-read-coding-system buffer-modified-p nil buffer-read-only modif gnusutil-article-encoded gnusutil-code-convert set-buffer-modified-p] 3 (#$ . 5564) nil]) (defalias 'gnusutil-inews-article-hook #[nil "ÀÁ!‰…Ã\n!A‰…Å\fÆ\"))‡" [mail-fetch-field "newsgroups" ng gnusutil-get-coding-system coding-system gnusutil-code-convert nil] 4]) #@66 A hook function called just after settings of gnusutil are done. (defvar gnusutil-initialize-hook nil (#$ . 6136)) #@67 Do several settings for GNUS to enable automatic code conversion. (defalias 'gnusutil-initialize #[nil "À  #ˆÄÅ!ƒÆ ÇÈ#ˆ‚Æ ÇÈ#ˆÊË!ƒ*ËÌKMˆ‚/ÍÌKMˆÄÎ!ƒHÏÎÐ\"ˆÏÑÒ\"ˆÏÓÔÕ#ˆ‚XÏÖÐ\"ˆÏ×Ò\"ˆÏØÔÕ#ˆÙÚ!‡" [define-service-coding-system gnus-nntp-service nil *noconv* boundp gnus-summary-mode-map define-key "z" gnusutil-toggle-article-format gnus-Subject-mode-map fboundp gnus-article-set-mode-line gnusutil-article-set-mode-line gnus-Article-set-mode-line gnus-open-server-hook add-hook gnusutil-Open-server-hook gnus-article-prepare-hook gnusutil-article-prepare-hook gnus-inews-article-hook gnusutil-inews-article-hook append gnus-Open-server-hook gnus-Article-prepare-hook gnus-Inews-article-hook run-hooks gnusutil-initialize-hook] 4 (#$ . 6257)]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÄ\"ˆÀÆÄ\"ˆÀÇÄ\"ˆÀÈÄ\"ˆÀÉÄ\"ˆÀÊË\"ˆÀÌË\"ˆÀÍÎ\"ˆÀÏÐ\"ˆÀÑÒ\"ˆÓÒÔÕÖ×%ˆØÙBÛÜÝ\"ÞBÛÜß\" àBá\"âBׇ" [gnusutil-add-group "" *junet*unix "alt" *noconv* "comp" "gnu" "rec" "sci" "soc" "alt.chinese.text" *hz* "alt.hk" "alt.chinese.text.big5" *big5-eten*unix "soc.culture.vietnamese" (nil *viqr*) "fj.editor.mule" *fj* make-coding-system 0 70 "Coding-system used in fj.editor.mule." nil "\\([NO]\\|\\$\\([@AB]\\|([CD]\\)\\|[(*][BJ]\\|\\.[AFH]\\)" fj-valid-esc-seq current-load-list format "=%2x" 61 fj-printable-equal 27 fj-printable-esc "### Mule special encoding for fj.editor.mule ###\n" fj-mule-special-heading] 6) (defalias 'fj-pre-write-conversion #[(from to) "bˆÁÂÃÄ#ˆŒ` }ˆÆed$ˆebˆÃ ÁÊÃÄ#ƒ0Ë\f!?‰ ƒ …kebˆ cˆÁÎÃÄ#ƒNÏĉ#ˆ‚<ebˆÁÊÃÄ#…kË\f!„QÑÒ!ˆcˆ‚Q*‡" [from search-forward "\n\n" nil t to code-convert-region *internal* *iso-2022-ss2-7* invalid-sequence-found "" looking-at fj-valid-esc-seq fj-mule-special-heading "=" replace-match fj-printable-equal delete-char -1 fj-printable-esc] 6]) (defalias 'fj-post-read-conversion #[(from to) "ŠbˆÁÂÃÄ#ˆŒ` }ˆÆÇÈÉ\n!\"!ƒEebˆÁ ÃÄ#ƒ0ÌÍĉ#ˆ‚ebˆÁÃÄ#ƒEÌÏĉ#ˆ‚3Ðed$*‡" [from search-forward "\n\n" nil t to looking-at format "^%s" regexp-quote fj-mule-special-heading fj-printable-esc replace-match "" fj-printable-equal "=" code-convert-region *iso-2022-ss2-7* *internal*] 5]) (byte-code "À ÂÃ#ˆÀ ÄÅ#ˆÆÇ!„ÈÇ B ÆÊ!„$È\nÊ B ËÌ!‡" [put *fj* post-read-conversion fj-post-read-conversion pre-write-conversion fj-pre-write-conversion boundp gnus-Group-mode-hook gnusutil-initialize current-load-list gnus-group-mode-hook provide gnusutil] 4)