;(add-hook 'mc-pre-signature-hook 'tfheen-escape-url)
(defun tfh-insert-citation-line ()
- "My own function to insert citation. Inserts a line similar to \"* Tollef Fog Heen\n\n\""
+ "My own function to insert citation. Inserts a line similar to \"]] Tollef Fog Heen\n\n\""
(if (string-equal gnus-newsgroup-name "nnml:drift.news.nag.submissions")
" "
(when message-reply-headers
(let ((author (or (mail-header-from message-reply-headers) "")))
(string-match "[^@ ]+@[^@ ]+" author)
- (insert "* "(replace-match "" nil nil author) "\n\n")))))
+ (insert "]] "(replace-match "" nil nil author) "\n\n")))))
(setq gnus-summary-gather-subject-limit 'fuzzy
gnus-simplify-subject-fuzzy-regexp "^\\([Aa][Dd]: \\|[Ss][Vv]: \\|[Rr][Ee]: \\)+"