235 |
;;;###autoload |
;;;###autoload |
236 |
(defcustom gnus-outlook-deuglify-unwrap-min 45 |
(defcustom gnus-outlook-deuglify-unwrap-min 45 |
237 |
"Minimum length of the cited line above the (possibly) wrapped line." |
"Minimum length of the cited line above the (possibly) wrapped line." |
238 |
|
:version "21.4" |
239 |
:type 'integer |
:type 'integer |
240 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
241 |
|
|
242 |
;;;###autoload |
;;;###autoload |
243 |
(defcustom gnus-outlook-deuglify-unwrap-max 95 |
(defcustom gnus-outlook-deuglify-unwrap-max 95 |
244 |
"Maximum length of the cited line after unwrapping." |
"Maximum length of the cited line after unwrapping." |
245 |
|
:version "21.4" |
246 |
:type 'integer |
:type 'integer |
247 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
248 |
|
|
249 |
(defcustom gnus-outlook-deuglify-cite-marks ">|#%" |
(defcustom gnus-outlook-deuglify-cite-marks ">|#%" |
250 |
"Characters that indicate cited lines." |
"Characters that indicate cited lines." |
251 |
|
:version "21.4" |
252 |
:type 'string |
:type 'string |
253 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
254 |
|
|
255 |
(defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil |
(defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil |
256 |
"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." |
257 |
|
:version "21.4" |
258 |
:type '(radio (const :format "None " nil) |
:type '(radio (const :format "None " nil) |
259 |
(string :size 0 :value ".?!")) |
(string :size 0 :value ".?!")) |
260 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
261 |
|
|
262 |
(defcustom gnus-outlook-deuglify-no-wrap-chars "`" |
(defcustom gnus-outlook-deuglify-no-wrap-chars "`" |
263 |
"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." |
264 |
|
:version "21.4" |
265 |
:type 'string |
:type 'string |
266 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
267 |
|
|
268 |
(defcustom gnus-outlook-deuglify-attrib-cut-regexp |
(defcustom gnus-outlook-deuglify-attrib-cut-regexp |
269 |
"\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, " |
"\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, " |
270 |
"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." |
271 |
|
:version "21.4" |
272 |
:type 'string |
:type 'string |
273 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
274 |
|
|
275 |
(defcustom gnus-outlook-deuglify-attrib-verb-regexp |
(defcustom gnus-outlook-deuglify-attrib-verb-regexp |
276 |
"wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió" |
"wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió" |
277 |
"Regular expression matching the verb used in an attribution line." |
"Regular expression matching the verb used in an attribution line." |
278 |
|
:version "21.4" |
279 |
:type 'string |
:type 'string |
280 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
281 |
|
|
282 |
(defcustom gnus-outlook-deuglify-attrib-end-regexp |
(defcustom gnus-outlook-deuglify-attrib-end-regexp |
283 |
": *\\|\\.\\.\\." |
": *\\|\\.\\.\\." |
284 |
"Regular expression matching the end of an attribution line." |
"Regular expression matching the end of an attribution line." |
285 |
|
:version "21.4" |
286 |
:type 'string |
:type 'string |
287 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
288 |
|
|
290 |
(defcustom gnus-outlook-display-hook nil |
(defcustom gnus-outlook-display-hook nil |
291 |
"A hook called after an deuglified article has been prepared. |
"A hook called after an deuglified article has been prepared. |
292 |
It is run after `gnus-article-prepare-hook'." |
It is run after `gnus-article-prepare-hook'." |
293 |
|
:version "21.4" |
294 |
:type 'hook |
:type 'hook |
295 |
:group 'gnus-outlook-deuglify) |
:group 'gnus-outlook-deuglify) |
296 |
|
|