;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:13:26 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/gnus/deuglify.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`deuglify.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require gnus-art gnus-sum] 2)
#@35 Version of gnus-outlook-deuglify.
(defconst gnus-outlook-deuglify-version "1.5 Gnus version" (#$ . 618))
(custom-declare-group 'gnus-outlook-deuglify nil "Deuglify articles generated by broken user agents like MS Outlook (Express)." :version "22.1" :group 'gnus)
#@69 Minimum length of the cited line above the (possibly) wrapped line.
(custom-declare-variable 'gnus-outlook-deuglify-unwrap-min '45 '(#$ . 887) :version "22.1" :type 'integer :group 'gnus-outlook-deuglify)
#@52 Maximum length of the cited line after unwrapping.
(custom-declare-variable 'gnus-outlook-deuglify-unwrap-max '95 '(#$ . 1098) :version "22.1" :type 'integer :group 'gnus-outlook-deuglify)
#@39 Characters that indicate cited lines.
(custom-declare-variable 'gnus-outlook-deuglify-cite-marks '">|#%" '(#$ . 1293) :version "22.1" :type 'string :group 'gnus-outlook-deuglify)
#@112 Characters that inhibit unwrapping if they are the last one on the cited line above the possible wrapped line.
(custom-declare-variable 'gnus-outlook-deuglify-unwrap-stop-chars 'nil '(#$ . 1479) :version "22.1" :type '(radio (const :format "None  " nil) (string :value ".?!")) :group 'gnus-outlook-deuglify)
#@92 Characters that inhibit unwrapping if they are the first one in the possibly wrapped line.
(custom-declare-variable 'gnus-outlook-deuglify-no-wrap-chars '"`" '(#$ . 1793) :version "22.1" :type 'string :group 'gnus-outlook-deuglify)
#@90 Regular expression matching the beginning of an attribution line that should be cut off.
(custom-declare-variable 'gnus-outlook-deuglify-attrib-cut-regexp '"\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, " '(#$ . 2031) :version "22.1" :type 'string :group 'gnus-outlook-deuglify)
#@67 Regular expression matching the verb used in an attribution line.
(custom-declare-variable 'gnus-outlook-deuglify-attrib-verb-regexp '"wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a Ã©crit\\|schreef\\|escribiÃ³" '(#$ . 2339) :version "22.1" :type 'string :group 'gnus-outlook-deuglify)
#@61 Regular expression matching the end of an attribution line.
(custom-declare-variable 'gnus-outlook-deuglify-attrib-end-regexp '": *\\|\\.\\.\\." '(#$ . 2648) :version "22.1" :type 'string :group 'gnus-outlook-deuglify)
#@107 A hook called after an deuglified article has been prepared.
It is run after `gnus-article-prepare-hook'.
(custom-declare-variable 'gnus-outlook-display-hook 'nil '(#$ . 2874) :version "22.1" :type 'hook :group 'gnus-outlook-deuglify)
#@45 Redisplay current buffer or article buffer.
(defalias 'gnus-outlook-display-article-buffer #[nil "r\206pq\210\301\302!\210\303\304!\210\305\306\307\")\207" [gnus-article-buffer gnus-article-highlight t gnus-treat-article nil gnus-run-hooks gnus-article-prepare-hook gnus-outlook-display-hook] 3 (#$ . 3115)])
#@323 Unwrap lines that appear to be wrapped citation lines.
You can control what lines will be unwrapped by frobbing
`gnus-outlook-deuglify-unwrap-min' and `gnus-outlook-deuglify-unwrap-max',
indicating the minimum and maximum length of an unwrapped citation line.  If
NODISPLAY is non-nil, don't redisplay the article buffer.
(defalias 'gnus-article-outlook-unwrap-lines #[(&optional nodisplay) "\306\307	\n\310\311!!\203brq\210\307\312 \210\313\314
\315\316
\317\320\321
\f\322\260\f\306\307#\203a\323\225\324\224Z\325\225\325\224Z\211V\203]\\ W\203]\326\327!\210\330\224b\210*\202 *-!?\205k\331 \207" [gnus-outlook-deuglify-cite-marks gnus-outlook-deuglify-no-wrap-chars gnus-outlook-deuglify-unwrap-stop-chars stop-chars no-wrap cite-marks nil t buffer-live-p get-buffer article-goto-body re-search-forward "^\\([ 	" "]*\\)" "\\([" "].*[^\n " "]\\)[ 	]?\n" "\\1\\([^\n " "]+.*\\)$" 2 1 3 replace-match "\\1\\2 \\3" 0 gnus-outlook-display-article-buffer inhibit-read-only case-fold-search gnus-article-buffer len3 len12 gnus-outlook-deuglify-unwrap-min gnus-outlook-deuglify-unwrap-max nodisplay] 14 (#$ . 3434) "P"])
#@85 Put the text from ATTR-START to the end of buffer at the top of the article buffer.
(defalias 'gnus-outlook-rearrange-article #[(attr-start) "\306\307\310!!\205`rq\210\306\311 \210`\fU?\205_\312 \210`\313 \203)`\202*d
\fW\2035d\212\f
}\210\fb\210\314y\210\315\316!\204T\317`d\320#\210db\210\321 \210d~\210)\322\f\211
$***\207" [gnus-outlook-deuglify-cite-marks cite-marks inhibit-read-only gnus-article-buffer attr-start to t buffer-live-p get-buffer article-goto-body gnus-kill-all-overlays gnus-article-search-signature nil looking-at ">" message-indent-citation yank-only newline transpose-regions cur] 5 (#$ . 4589)])
#@45 Repair a broken attribution line (Outlook).
(defalias 'gnus-outlook-repair-attribution-outlook #[nil "\306\307\310\311\f!!\2057r\fq\210\307\312 \210\313\314	\315\316
\317\320	\321\316\322\260\f\306\307#\2056\323 \210\324\325!\210\326\224*+\207" [gnus-outlook-deuglify-cite-marks cite-marks inhibit-read-only case-fold-search gnus-article-buffer gnus-outlook-deuglify-attrib-verb-regexp nil t buffer-live-p get-buffer article-goto-body re-search-forward "^\\([^" "].+\\)" "\\(" "\\)" "\\(.*\n?[^\n" "].*\\)?" "\\)$" gnus-kill-all-overlays replace-match "\\1\\2\\4" 0 gnus-outlook-deuglify-attrib-end-regexp] 13 (#$ . 5236)])
#@40 Repair a big broken attribution block.
(defalias 'gnus-outlook-repair-attribution-block #[nil "\305\306\307\310\f!!\205/r\fq\210\306\311 \210\312\313	\314\315\316\260\305\306#\205.\317 \210\320\321!\210\322\224*+\207" [gnus-outlook-deuglify-cite-marks cite-marks inhibit-read-only case-fold-search gnus-article-buffer nil t buffer-live-p get-buffer article-goto-body re-search-forward "^[" " 	]*--* ?[^-]+ [^-]+ ?--*\\s *\n" "[^\n:]+:[ 	]*\\([^\n]+\\)\n" "\\([^\n:]+:[ 	]*[^\n]+\n\\)+" gnus-kill-all-overlays replace-match "\\1 wrote:\n" 0] 6 (#$ . 5875)])
#@68 Repair a broken attribution line (other user agents than Outlook).
(defalias 'gnus-outlook-repair-attribution-other #[nil "\306\307\310\311\f!!\205:r\fq\210\307\312 \210\313\314
\315\316	\317	\320\321\322\321\323\260\306\307#\2059\324 \210\325\326!\210\327\224*+\207" [gnus-outlook-deuglify-cite-marks cite-marks inhibit-read-only case-fold-search gnus-article-buffer gnus-outlook-deuglify-attrib-cut-regexp nil t buffer-live-p get-buffer article-goto-body re-search-forward "^\\(" "\\)?" "\\([^" "].+\\)\n\\([^\n" "].*\\)?" "\\(" "\\).*" "\\)$" gnus-kill-all-overlays replace-match "\\4 \\5\\6\\7" 0 gnus-outlook-deuglify-attrib-verb-regexp gnus-outlook-deuglify-attrib-end-regexp] 15 (#$ . 6446)])
#@96 Repair a broken attribution line.
If NODISPLAY is non-nil, don't redisplay the article buffer.
(defalias 'gnus-article-outlook-repair-attribution #[(&optional nodisplay) "\302 \206\f\303 \206\f\304 	\204\305 \210)\207" [attrib-start nodisplay gnus-outlook-repair-attribution-other gnus-outlook-repair-attribution-block gnus-outlook-repair-attribution-outlook gnus-outlook-display-article-buffer] 1 (#$ . 7164) "P"])
#@87 Repair broken citations.
If NODISPLAY is non-nil, don't redisplay the article buffer.
(defalias 'gnus-article-outlook-rearrange-citation #[(&optional nodisplay) "\302\301!\211\203\f\303!\210)	?\205\304 \207" [attrib-start nodisplay gnus-article-outlook-repair-attribution gnus-outlook-rearrange-article gnus-outlook-display-article-buffer] 3 (#$ . 7592) "P"])
#@190 Full deuglify of broken Outlook (Express) articles.
Treat dumbquotes, unwrap lines, repair attribution and rearrange citation.  If
NODISPLAY is non-nil, don't redisplay the article buffer.
(defalias 'gnus-outlook-deuglify-article #[(&optional nodisplay) "\301 \210\302\300!\210\303\300!\210?\205\304 \207" [nodisplay gnus-article-treat-dumbquotes gnus-article-outlook-unwrap-lines gnus-article-outlook-rearrange-citation gnus-outlook-display-article-buffer] 2 (#$ . 7964) "P"])
#@59 Deuglify broken Outlook (Express) articles and redisplay.
(defalias 'gnus-article-outlook-deuglify-article #[nil "\300\301!\207" [gnus-outlook-deuglify-article nil] 2 (#$ . 8451) nil])
(provide 'deuglify)
