2003-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * message.el (message-fix-before-sending): Comment fix.
+ (message-fix-before-sending): Make hidden headers visible.
+
+ * gnus-msg.el: Hide headers.
+
* message.el (message-hidden-headers): New variable.
(message-hide-headers): New function.
(message-hide-header-p): New function.
(message-hide-header-p): Change logic.
+ (message-forbidden-properties): Remove intangible nil invisible
+ nil.
+ (message-hide-headers): Narrow to headers.
* lpath.el (featurep): Bind Info-directory, Info-menu.
;; No reason this should be clutter up customize. We make it a
;; property list (rather than a list of property symbols), to be
;; directly useful for `remove-text-properties'.
- '(field nil read-only nil intangible nil invisible nil
+ '(field nil read-only nil
mouse-face nil modification-hooks nil insert-in-front-hooks nil
insert-behind-hooks nil point-entered nil point-left nil)
;; Other special properties:
(goto-char (point-max))
(unless (bolp)
(insert "\n"))
- ;; Delete all invisible text.
+ ;; Make the hidden headers visible.
+ (let ((points (message-text-with-property 'message-hidden)))
+ (when points
+ (goto-char (car points))
+ (dolist (point points)
+ (add-text-properties point (1+ point)
+ '(invisible nil intangible nil)))))
+ ;; Make invisible text visible.
(message-check 'invisible-text
(let ((points (message-text-with-property 'invisible)))
(when points
message-hidden-headers))
(inhibit-point-motion-hooks t))
(when regexps
- (goto-char (point-min))
- (while (not (eobp))
- (if (not (message-hide-header-p regexps))
- (message-next-header)
- (let ((begin (point)))
- (message-next-header)
- (add-text-properties begin (point)
- '(intangible t invisible t
- message-hidden t))))))))
+ (save-excursion
+ (save-restriction
+ (message-narrow-to-headers)
+ (goto-char (point-min))
+ (while (not (eobp))
+ (if (not (message-hide-header-p regexps))
+ (message-next-header)
+ (let ((begin (point)))
+ (message-next-header)
+ (add-text-properties begin (point)
+ '(intangible t invisible t
+ message-hidden t))))))))))
(defun message-hide-header-p (regexps)
(let ((result nil)
(setq reverse t)
(pop regexps))
(dolist (regexp regexps)
- (setq result
- (or result
- (if reverse
- (not (looking-at regexp))
- (looking-at regexp)))))
- result))
+ (setq result (or result (looking-at regexp))))
+ (if reverse
+ (not result)
+ result)))
(when (featurep 'xemacs)
(require 'messagexmas)