Gnus development mailing list
 help / color / mirror / Atom feed
* [sgnus 0.93] gnus-narrow-to-signature
@ 1996-05-24  6:44 守岡 知彦 / MORIOKA Tomohiko
  0 siblings, 0 replies; only message in thread
From: 守岡 知彦 / MORIOKA Tomohiko @ 1996-05-24  6:44 UTC (permalink / raw)


[-- Attachment #1: Type: text/plain, Size: 102 bytes --]

  gnus-narrow-to-signature does not work fine. Following is a patch to 
fix this problem.

  Thanks,


[-- Attachment #2: gnus.el.diff --]
[-- Type: application/octet-stream, Size: 1577 bytes --]

*** gnus.el-orig	Fri May 24 08:39:53 1996
--- gnus.el	Fri May 24 15:35:30 1996
***************
*** 14158,14176 ****
  	(narrow-to-region
  	 (funcall (intern "mime::preview-content-info/point-min") pcinfo)
  	 (point-max))
! 	t)
!     (goto-char (point-max))
!     (when (re-search-backward gnus-signature-separator nil t)
!       (forward-line 1)
!       (when (or (null gnus-signature-limit)
! 		(and (numberp gnus-signature-limit)
! 		     (< (- (point-max) (point)) gnus-signature-limit))
! 		(and (gnus-functionp gnus-signature-limit)
! 		     (funcall gnus-signature-limit))
! 		(and (stringp gnus-signature-limit)
! 		     (not (re-search-forward gnus-signature-limit nil t))))
! 	(narrow-to-region (point) (point-max))
! 	t))))
  
  (defun gnus-article-check-hidden-text (type arg)
    "Return nil if hiding is necessary."
--- 14158,14176 ----
  	(narrow-to-region
  	 (funcall (intern "mime::preview-content-info/point-min") pcinfo)
  	 (point-max))
! 	))
!   (goto-char (point-max))
!   (when (re-search-backward gnus-signature-separator nil t)
!     (forward-line 1)
!     (when (or (null gnus-signature-limit)
! 	      (and (numberp gnus-signature-limit)
! 		   (< (- (point-max) (point)) gnus-signature-limit))
! 	      (and (gnus-functionp gnus-signature-limit)
! 		   (funcall gnus-signature-limit))
! 	      (and (stringp gnus-signature-limit)
! 		   (not (re-search-forward gnus-signature-limit nil t))))
!       (narrow-to-region (point) (point-max))
!       t)))
  
  (defun gnus-article-check-hidden-text (type arg)
    "Return nil if hiding is necessary."

[-- Attachment #3: Type: text/plain, Size: 322 bytes --]

----------------------------------------------------------------------
MORIOKA Tomohiko <morioka@jaist.ac.jp>
        Japan advanced Institute of Science and Technology, Hokuriku
                Asahi-dai, Tatsu-no-kuchi chô, Nomi, Ishikawa, Japan
----------------------------------------- Frisch, Frei, Freöhlich! ---

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~1996-05-24  6:44 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-05-24  6:44 [sgnus 0.93] gnus-narrow-to-signature 守岡 知彦 / MORIOKA Tomohiko

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).