*** pub/rgnus/lisp/gnus-art.el Wed Jun 18 01:16:34 1997 --- rgnus/lisp/gnus-art.el Wed Jun 18 17:31:41 1997 *************** *** 583,589 **** (let ((b (point-min))) (while (setq b (text-property-any b (point-max) 'article-type type)) (delete-region ! b (text-property-not-all b (point-max) 'article-type type)))))) (defun gnus-article-delete-invisible-text () "Delete all invisible text in the current buffer." --- 583,590 ---- (let ((b (point-min))) (while (setq b (text-property-any b (point-max) 'article-type type)) (delete-region ! b (or (text-property-not-all b (point-max) 'article-type type) ! (point-max))))))) (defun gnus-article-delete-invisible-text () "Delete all invisible text in the current buffer." *************** *** 591,597 **** (let ((b (point-min))) (while (setq b (text-property-any b (point-max) 'invisible t)) (delete-region ! b (text-property-not-all b (point-max) 'invisible t)))))) (defun gnus-article-text-type-exists-p (type) "Say whether any text of type TYPE exists in the buffer." --- 592,599 ---- (let ((b (point-min))) (while (setq b (text-property-any b (point-max) 'invisible t)) (delete-region ! b (or (text-property-not-all b (point-max) 'invisible t) ! (point-max))))))) (defun gnus-article-text-type-exists-p (type) "Say whether any text of type TYPE exists in the buffer." *************** *** 959,986 **** ;; Hide the "header". (when (search-forward "\n-----BEGIN PGP SIGNED MESSAGE-----\n" nil t) (gnus-article-hide-text-type (1+ (match-beginning 0)) ! (match-end 0) 'pgp)) ! (setq beg (point)) ! ;; Hide the actual signature. ! (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t) ! (setq end (1+ (match-beginning 0))) ! (gnus-article-hide-text-type ! end ! (if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t) ! (match-end 0) ! ;; Perhaps we shouldn't hide to the end of the buffer ! ;; if there is no end to the signature? ! (point-max)) ! 'pgp)) ! ;; Hide "- " PGP quotation markers. ! (when (and beg end) ! (narrow-to-region beg end) ! (goto-char (point-min)) ! (while (re-search-forward "^- " nil t) ! (gnus-article-hide-text-type ! (match-beginning 0) (match-end 0) 'pgp)) ! (widen))) ! (run-hooks 'gnus-article-hide-pgp-hook)))) (defun article-hide-pem (&optional arg) "Toggle hiding of any PEM headers and signatures in the current article. --- 961,988 ---- ;; Hide the "header". (when (search-forward "\n-----BEGIN PGP SIGNED MESSAGE-----\n" nil t) (gnus-article-hide-text-type (1+ (match-beginning 0)) ! (match-end 0) 'pgp) ! (setq beg (point)) ! ;; Hide the actual signature. ! (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t) ! (setq end (1+ (match-beginning 0))) ! (gnus-article-hide-text-type ! end ! (if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t) ! (match-end 0) ! ;; Perhaps we shouldn't hide to the end of the buffer ! ;; if there is no end to the signature? ! (point-max)) ! 'pgp)) ! ;; Hide "- " PGP quotation markers. ! (when (and beg end) ! (narrow-to-region beg end) ! (goto-char (point-min)) ! (while (re-search-forward "^- " nil t) ! (gnus-article-hide-text-type ! (match-beginning 0) (match-end 0) 'pgp)) ! (widen))) ! (run-hooks 'gnus-article-hide-pgp-hook))))) (defun article-hide-pem (&optional arg) "Toggle hiding of any PEM headers and signatures in the current article. *** pub/rgnus/lisp/gnus-group.el Wed Jun 18 01:16:35 1997 --- rgnus/lisp/gnus-group.el Wed Jun 18 17:31:41 1997 *************** *** 2916,2926 **** (interactive (list (gnus-group-group-name) ! (cond (current-prefix-arg ! (completing-read ! "Faq dir: " (and (listp gnus-group-faq-directory) ! (mapcar (lambda (file) (list file)) ! gnus-group-faq-directory))))))) (unless group (error "No group name given")) (let ((dirs (or faq-dir gnus-group-faq-directory)) --- 2916,2926 ---- (interactive (list (gnus-group-group-name) ! (when current-prefix-arg ! (completing-read ! "Faq dir: " (and (listp gnus-group-faq-directory) ! (mapcar (lambda (file) (list file)) ! gnus-group-faq-directory)))))) (unless group (error "No group name given")) (let ((dirs (or faq-dir gnus-group-faq-directory)) *** pub/rgnus/lisp/gnus-sum.el Wed Jun 18 01:16:37 1997 --- rgnus/lisp/gnus-sum.el Wed Jun 18 17:31:42 1997 *************** *** 5083,5089 **** (when current-prefix-arg (completing-read "Faq dir: " (and (listp gnus-group-faq-directory) ! gnus-group-faq-directory))))) (let (gnus-faq-buffer) (when (setq gnus-faq-buffer (gnus-group-fetch-faq gnus-newsgroup-name faq-dir)) --- 5083,5090 ---- (when current-prefix-arg (completing-read "Faq dir: " (and (listp gnus-group-faq-directory) ! (mapcar (lambda (file) (list file)) ! gnus-group-faq-directory)))))) (let (gnus-faq-buffer) (when (setq gnus-faq-buffer (gnus-group-fetch-faq gnus-newsgroup-name faq-dir)) *** pub/rgnus/lisp/gnus-xmas.el Wed Jun 18 00:53:22 1997 --- rgnus/lisp/gnus-xmas.el Wed Jun 18 17:31:43 1997 *************** *** 213,219 **** ;; We nix out any glyphs over 126 below ctl-arrow. (let ((i (if (integerp ctl-arrow) ctl-arrow 160))) (while (>= (setq i (1- i)) 127) ! (aset table i [??]))) ;; Can't use `set-specifier' because of a bug in 19.14 and earlier (add-spec-to-specifier current-display-table table (current-buffer) nil))) --- 213,220 ---- ;; We nix out any glyphs over 126 below ctl-arrow. (let ((i (if (integerp ctl-arrow) ctl-arrow 160))) (while (>= (setq i (1- i)) 127) ! (unless (aref table i) ! (aset table i [??])))) ;; Can't use `set-specifier' because of a bug in 19.14 and earlier (add-spec-to-specifier current-display-table table (current-buffer) nil))) *************** *** 511,517 **** (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar) (add-hook 'gnus-summary-mode-hook ! 'gnus-xmas-switch-horizontal-scrollbar-off)) ;;; XEmacs logo and toolbar. --- 512,519 ---- (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar) (add-hook 'gnus-summary-mode-hook ! 'gnus-xmas-switch-horizontal-scrollbar-off) ! (add-hook 'gnus-tree-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off)) ;;; XEmacs logo and toolbar. *************** *** 735,743 **** (gnus-xmas-call-region "icontopbm") (gnus-xmas-call-region "ppmtoxpm") (make-glyph ! (vector 'xpm :data (buffer-string))))) ! (t ! (make-glyph [nothing])))))) (set-glyph-face xface-glyph 'gnus-x-face) (goto-char (point-min)) (re-search-forward "^From:" nil t) --- 737,745 ---- (gnus-xmas-call-region "icontopbm") (gnus-xmas-call-region "ppmtoxpm") (make-glyph ! (vector 'xpm :data (buffer-string)))))) ! (t ! (make-glyph [nothing]))))) (set-glyph-face xface-glyph 'gnus-x-face) (goto-char (point-min)) (re-search-forward "^From:" nil t) *** pub/rgnus/lisp/gnus.el Wed Jun 18 01:16:38 1997 --- rgnus/lisp/gnus.el Wed Jun 18 17:31:43 1997 *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.58" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 226,232 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.59" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/smiley.el Wed Jun 18 01:16:40 1997 --- rgnus/lisp/smiley.el Wed Jun 18 17:31:43 1997 *************** *** 53,59 **** ;; two alists below. (defcustom smiley-deformed-regexp-alist ! '(("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm") ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm") ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm") ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm") --- 53,65 ---- ;; two alists below. (defcustom smiley-deformed-regexp-alist ! '(("\\(\\^_?\\^;;;\\)\\W" 1 "WideFaceAse3.xbm") ! ("\\(\\^_?\\^;;\\)\\W" 1 "WideFaceAse2.xbm") ! ("\\(\\^_?\\^;\\)\\W" 1 "WideFaceAse1.xbm") ! ("\\(\\^_?\\^\\)\\W" 1 "WideFaceSmile.xbm") ! ("\\(\\;_;\\)\\W" 1 "WideFaceWeep.xbm") ! ("\\(\\T_T\\)\\W" 1 "WideFaceWeep.xbm") ! ("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm") ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm") ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm") ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm") *** pub/rgnus/lisp/ChangeLog Wed Jun 18 01:16:34 1997 --- rgnus/lisp/ChangeLog Wed Jun 18 17:31:40 1997 *************** *** 1,3 **** --- 1,34 ---- + Wed Jun 18 17:26:35 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.59 is released. + + Wed Jun 18 09:29:15 1997 Andreas Jaeger + + * gnus-xmas.el (gnus-xmas-article-display-xface): Correct setting of + braces. + + 1997-06-07 MORIOKA Tomohiko + + * smiley.el (smiley-deformed-regexp-alist): Add Japanese smiley + faces. + + Wed Jun 18 14:15:21 1997 Lars Magne Ingebrigtsen + + * gnus-art.el (article-hide-pgp): Only run hook when there is a + PGP signature. + + * gnus-sum.el (gnus-summary-fetch-faq): Have `C-u' work. + + * gnus-xmas.el (gnus-xmas-summary-set-display-table): Don't nix + out chars that aren't supposed to be nixed out. + + * gnus-art.el (gnus-article-delete-invisible-text): Would bug out + on point-max. + (gnus-article-delete-text-of-type): Ditto. + + * gnus-xmas.el (gnus-xmas-redefine): Switch off horiz scrollbar in + tree buffers. + Wed Jun 18 01:11:58 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.58 is released. *** pub/rgnus/texi/gnus.texi Wed Jun 18 01:16:41 1997 --- rgnus/texi/gnus.texi Wed Jun 18 17:31:45 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.58 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.59 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 309,315 **** @tex @titlepage ! @title Gnus 5.4.58 Manual @author by Lars Magne Ingebrigtsen @page --- 309,315 ---- @tex @titlepage ! @title Gnus 5.4.59 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 345,351 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.58. @end ifinfo --- 345,351 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.59. @end ifinfo *** pub/rgnus/texi/message.texi Wed Jun 18 01:16:42 1997 --- rgnus/texi/message.texi Wed Jun 18 17:31:46 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.58 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.59 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 5.4.58 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 5.4.59 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.58. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 79,85 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.59. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/rgnus/texi/dir Wed Jun 18 00:54:19 1997 --- rgnus/texi/dir Wed Jun 18 17:31:46 1997 *************** *** 0 **** --- 1,44 ---- + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library. + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library. + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library. + -*- Text -*- + The Gnus-realated top node. +  + File: dir Node: Top This is the Gnus Info tree + + * Menu: + + * Gnus: (gnus). The news reader Gnus. + * Message: (message). The Message sending thingamabob. + * Widget: (widget). The Widget library. + * Custom: (custom). The Custom library.