(PACKAGEDIR): Check for (early|late|last)-package-hierarchies and

[elisp/mu-cite.git] / mu-cite.el

diff --git a/mu-cite.el b/mu-cite.el
index c125289..b32cdee 100644 (file)
--- a/mu-cite.el
+++ b/mu-cite.el
@@ -21,8 +21,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -364,7 +364,8 @@ function according to the agreed upon standard."
       (insert top)
       (setq last-point (point))
       (while (< (point)(mark t))
-       (or (looking-at mu-cite-cited-prefix-regexp)
+       (or (and mu-cite-cited-prefix-regexp
+                (looking-at mu-cite-cited-prefix-regexp))
            (insert prefix))
        (forward-line 1))
       (goto-char last-point))
@@ -467,7 +468,9 @@ TABLE defaults to the current buffer's category table."
 
 (defcustom fill-column-for-fill-cited-region nil
   "Integer to override `fill-column' while `fill-cited-region' is being
-executed."
+executed.  If you wish people call you ****-san, you may set the value
+of `fill-column' to 60 in the buffer for message sending and set this
+to 70. :-)"
   :type (` (choice (const :tag "Off" nil)
                   (integer (, default-fill-column))))
   :group 'mu-cite)