- ,(if (featurep 'xemacs)
- '(if (eq ?\n (char-after start))
- (setq start (1+ start)))
- '(if (eq ?\n (char-after (1- end)))
- (setq end (1- end))))
- (setq ad-return-value
- (if (eq 'message-mode major-mode)
- (add-text-properties start end
- '(invisible t mime-edit-invisible t))
- (put-text-property start end 'invisible t))))))
+ ,(if (featurep 'xemacs)
+ '(if (eq ?\n (char-after start))
+ (setq start (1+ start)))
+ '(if (eq ?\n (char-after (1- end)))
+ (setq end (1- end))))
+ (setq ad-return-value
+ (if (eq 'message-mode major-mode)
+ (add-text-properties start end
+ '(invisible t mime-edit-invisible t))
+ (put-text-property start end 'invisible t)))))))