# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1132342835 0
# Node ID e10f2e7919f023e4183be08b29d042b26743d15b
# Parent  f7e79cfcfc4f8384776d86df8872c53c5d5ccf80
Add hacks for citation in mail-mode and message-mode.

diff -r f7e79cfcfc4f -r e10f2e7919f0 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 18 19:11:19 2005 +0000
+++ b/lisp/ChangeLog	Fri Nov 18 19:40:35 2005 +0000
@@ -1,3 +1,8 @@
+2005-11-18  Chong Yidong  <cyd@stupidchicken.com>
+
+	* longlines.el (longlines-mode): Add hacks for mail-mode and
+	message-mode.
+
 2005-11-18  Carsten Dominik  <dominik@science.uva.nl>
 
 	* textmodes/org.el: (org-table-sort-lines): New command.
diff -r f7e79cfcfc4f -r e10f2e7919f0 lisp/longlines.el
--- a/lisp/longlines.el	Fri Nov 18 19:11:19 2005 +0000
+++ b/lisp/longlines.el	Fri Nov 18 19:40:35 2005 +0000
@@ -137,7 +137,21 @@
           (add-hook 'after-change-functions
                     'longlines-after-change-function nil t)
           (add-hook 'post-command-hook
-                    'longlines-post-command-function nil t)))
+                    'longlines-post-command-function nil t))
+
+	;; Hacks to make longlines play nice with various modes.
+	(cond ((eq major-mode 'mail-mode)
+	       (or mail-citation-hook
+		   (add-hook 'mail-citation-hook 'mail-indent-citation nil t))
+	       (add-hook 'mail-citation-hook 'longlines-decode-region nil t))
+	      ((eq major-mode 'message-mode)
+	       (make-local-variable 'message-indent-citation-function)
+	       (if (not (listp message-indent-citation-function))
+		   (setq message-indent-citation-function
+			 (list message-indent-citation-function)))
+	       (add-to-list 'message-indent-citation-function
+			    'longlines-decode-region t)))
+	)
     ;; Turn off longlines mode
     (setq buffer-file-format (delete 'longlines buffer-file-format))
     (if longlines-showing
@@ -298,8 +312,11 @@
                    (1+ (current-column)))
                  space))))))
 
-(defun longlines-decode-region (beg end)
-  "Turn all newlines between BEG and END into hard newlines."
+(defun longlines-decode-region (&optional beg end)
+  "Turn all newlines between BEG and END into hard newlines.
+If BEG and END are nil, the point and mark are used."
+  (if (null beg) (setq beg (point)))
+  (if (null end) (setq end (mark t)))
   (save-excursion
     (goto-char (min beg end))
     (while (search-forward "\n" (max beg end) t)