Lines Matching defs:outlook
50 ;; The function `gnus-article-outlook-unwrap-lines' tries to recognize those
73 ;; `gnus-article-outlook-unwrap-lines' will only unwrap lines if the resulting
75 ;; this by adjusting `gnus-outlook-deuglify-unwrap-max'. Also
77 ;; wrapped line has a minimum length of `gnus-outlook-deuglify-unwrap-min'.
81 ;; `gnus-outlook-deuglify-unwrap-stop-chars'. Setting this to ".?!"
116 ;; `gnus-article-outlook-repair-attribution which calls other function that
118 ;; `gnus-outlook-deuglify-attrib-cut-regexp' for stuff that should be
120 ;; `gnus-outlook-deuglify-attrib-verb-regexp' for the verbs that are
126 ;; `gnus-article-outlook-rearrange-citation'. This function calls
127 ;; `gnus-article-outlook-repair-attribution to find and repair an attribution
161 ;; (add-hook 'gnus-article-decode-hook 'gnus-article-outlook-unwrap-lines)
166 ;; (add-hook 'gnus-article-decode-hook 'gnus-article-outlook-repair-attribution)
169 ;; (add-hook 'gnus-article-decode-hook 'gnus-article-outlook-rearrange-citation)
181 ;; unwrapping cited lines with `gnus-article-outlook-unwrap-lines'.
183 ;; `gnus-article-outlook-repair-attribution will only fix the first
189 ;; `gnus-article-outlook-rearrange-citation' carries all the limitations of
190 ;; `gnus-article-outlook-repair-attribution.
197 ;; * New variable `gnus-outlook-deuglify-no-wrap-chars' to inhibit
200 ;; * New function `gnus-outlook-repair-attribution-block' for repairing
204 ;; Renamed `gnus-outlook-deuglify-article' to
205 ;; `gnus-article-outlook-deuglify-article'.
227 (defconst gnus-outlook-deuglify-version "1.5 Gnus version"
228 "Version of gnus-outlook-deuglify.")
232 (defgroup gnus-outlook-deuglify nil
237 (defcustom gnus-outlook-deuglify-unwrap-min 45
241 :group 'gnus-outlook-deuglify)
243 (defcustom gnus-outlook-deuglify-unwrap-max 95
247 :group 'gnus-outlook-deuglify)
249 (defcustom gnus-outlook-deuglify-cite-marks ">|#%"
253 :group 'gnus-outlook-deuglify)
255 (defcustom gnus-outlook-deuglify-unwrap-stop-chars nil ;; ".?!" or nil
260 :group 'gnus-outlook-deuglify)
262 (defcustom gnus-outlook-deuglify-no-wrap-chars "`"
266 :group 'gnus-outlook-deuglify)
268 (defcustom gnus-outlook-deuglify-attrib-cut-regexp
273 :group 'gnus-outlook-deuglify)
275 (defcustom gnus-outlook-deuglify-attrib-verb-regexp
280 :group 'gnus-outlook-deuglify)
282 (defcustom gnus-outlook-deuglify-attrib-end-regexp
287 :group 'gnus-outlook-deuglify)
289 (defcustom gnus-outlook-display-hook nil
294 :group 'gnus-outlook-deuglify)
298 (defun gnus-outlook-display-article-buffer ()
308 'gnus-outlook-display-hook)))
311 (defun gnus-article-outlook-unwrap-lines (&optional nodisplay)
314 `gnus-outlook-deuglify-unwrap-min' and `gnus-outlook-deuglify-unwrap-max',
321 (cite-marks gnus-outlook-deuglify-cite-marks)
322 (no-wrap gnus-outlook-deuglify-no-wrap-chars)
323 (stop-chars gnus-outlook-deuglify-unwrap-stop-chars))
334 (if (and (> len12 gnus-outlook-deuglify-unwrap-min)
335 (< (+ len12 len3) gnus-outlook-deuglify-unwrap-max))
339 (unless nodisplay (gnus-outlook-display-article-buffer)))
341 (defun gnus-outlook-rearrange-article (attr-start)
345 (cite-marks gnus-outlook-deuglify-cite-marks))
365 (defun gnus-outlook-repair-attribution-outlook ()
370 (cite-marks gnus-outlook-deuglify-cite-marks))
375 "\\(" gnus-outlook-deuglify-attrib-verb-regexp "\\)"
377 "\\(" gnus-outlook-deuglify-attrib-end-regexp "\\)$")
391 (defun gnus-outlook-repair-attribution-block ()
396 (cite-marks gnus-outlook-deuglify-cite-marks))
411 (defun gnus-outlook-repair-attribution-other ()
416 (cite-marks gnus-outlook-deuglify-cite-marks))
420 (concat "^\\("gnus-outlook-deuglify-attrib-cut-regexp"\\)?"
422 "\\(" gnus-outlook-deuglify-attrib-verb-regexp "\\).*"
423 "\\(" gnus-outlook-deuglify-attrib-end-regexp "\\)$")
431 (defun gnus-article-outlook-repair-attribution (&optional nodisplay)
437 (gnus-outlook-repair-attribution-other)
438 (gnus-outlook-repair-attribution-block)
439 (gnus-outlook-repair-attribution-outlook))))
440 (unless nodisplay (gnus-outlook-display-article-buffer))
443 (defun gnus-article-outlook-rearrange-citation (&optional nodisplay)
447 (let ((attrib-start (gnus-article-outlook-repair-attribution 'nodisplay)))
450 (gnus-outlook-rearrange-article attrib-start)))
451 (unless nodisplay (gnus-outlook-display-article-buffer)))
454 (defun gnus-outlook-deuglify-article (&optional nodisplay)
462 (gnus-article-outlook-unwrap-lines 'nodisplay)
464 (gnus-article-outlook-rearrange-citation 'nodisplay)
465 (unless nodisplay (gnus-outlook-display-article-buffer)))
468 (defun gnus-article-outlook-deuglify-article ()
471 (gnus-outlook-deuglify-article nil))