146 |
;; Hey, John. There's no in all your sentences! |
;; Hey, John. There's no in all your sentences! |
147 |
;; |
;; |
148 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
149 |
;; |
;; |
150 |
;; Usage |
;; Usage |
151 |
;; ----- |
;; ----- |
152 |
;; |
;; |
231 |
|
|
232 |
(defgroup gnus-outlook-deuglify nil |
(defgroup gnus-outlook-deuglify nil |
233 |
"Deuglify articles generated by broken user agents like MS Outlook (Express)." |
"Deuglify articles generated by broken user agents like MS Outlook (Express)." |
234 |
:version "21.4") |
:version "22.1") |
235 |
|
|
236 |
;;;###autoload |
;;;###autoload |
237 |
(defcustom gnus-outlook-deuglify-unwrap-min 45 |
(defcustom gnus-outlook-deuglify-unwrap-min 45 |
238 |
"Minimum length of the cited line above the (possibly) wrapped line." |
"Minimum length of the cited line above the (possibly) wrapped line." |
239 |
:version "21.4" |
:version "22.1" |
240 |
:type 'integer |
:type 'integer |
241 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
242 |
|
|
243 |
;;;###autoload |
;;;###autoload |
244 |
(defcustom gnus-outlook-deuglify-unwrap-max 95 |
(defcustom gnus-outlook-deuglify-unwrap-max 95 |
245 |
"Maximum length of the cited line after unwrapping." |
"Maximum length of the cited line after unwrapping." |
246 |
:version "21.4" |
:version "22.1" |
247 |
:type 'integer |
:type 'integer |
248 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
249 |
|
|
250 |
(defcustom gnus-outlook-deuglify-cite-marks ">|#%" |
(defcustom gnus-outlook-deuglify-cite-marks ">|#%" |
251 |
"Characters that indicate cited lines." |
"Characters that indicate cited lines." |
252 |
:version "21.4" |
:version "22.1" |
253 |
:type 'string |
:type 'string |
254 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
255 |
|
|
256 |
(defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil |
(defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil |
257 |
"Characters that inhibit unwrapping if they are the last one on the cited line above the possible wrapped line." |
"Characters that inhibit unwrapping if they are the last one on the cited line above the possible wrapped line." |
258 |
:version "21.4" |
:version "22.1" |
259 |
:type '(radio (const :format "None " nil) |
:type '(radio (const :format "None " nil) |
260 |
(string :value ".?!")) |
(string :value ".?!")) |
261 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
262 |
|
|
263 |
(defcustom gnus-outlook-deuglify-no-wrap-chars "`" |
(defcustom gnus-outlook-deuglify-no-wrap-chars "`" |
264 |
"Characters that inhibit unwrapping if they are the first one in the possibly wrapped line." |
"Characters that inhibit unwrapping if they are the first one in the possibly wrapped line." |
265 |
:version "21.4" |
:version "22.1" |
266 |
:type 'string |
:type 'string |
267 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
268 |
|
|
269 |
(defcustom gnus-outlook-deuglify-attrib-cut-regexp |
(defcustom gnus-outlook-deuglify-attrib-cut-regexp |
270 |
"\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, " |
"\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, " |
271 |
"Regular expression matching the beginning of an attribution line that should be cut off." |
"Regular expression matching the beginning of an attribution line that should be cut off." |
272 |
:version "21.4" |
:version "22.1" |
273 |
:type 'string |
:type 'string |
274 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
275 |
|
|
276 |
(defcustom gnus-outlook-deuglify-attrib-verb-regexp |
(defcustom gnus-outlook-deuglify-attrib-verb-regexp |
277 |
"wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió" |
"wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió" |
278 |
"Regular expression matching the verb used in an attribution line." |
"Regular expression matching the verb used in an attribution line." |
279 |
:version "21.4" |
:version "22.1" |
280 |
:type 'string |
:type 'string |
281 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
282 |
|
|
283 |
(defcustom gnus-outlook-deuglify-attrib-end-regexp |
(defcustom gnus-outlook-deuglify-attrib-end-regexp |
284 |
": *\\|\\.\\.\\." |
": *\\|\\.\\.\\." |
285 |
"Regular expression matching the end of an attribution line." |
"Regular expression matching the end of an attribution line." |
286 |
:version "21.4" |
:version "22.1" |
287 |
:type 'string |
:type 'string |
288 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
289 |
|
|
291 |
(defcustom gnus-outlook-display-hook nil |
(defcustom gnus-outlook-display-hook nil |
292 |
"A hook called after an deuglified article has been prepared. |
"A hook called after an deuglified article has been prepared. |
293 |
It is run after `gnus-article-prepare-hook'." |
It is run after `gnus-article-prepare-hook'." |
294 |
:version "21.4" |
:version "22.1" |
295 |
:type 'hook |
:type 'hook |
296 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
297 |
|
|