/[emacs]/emacs/lisp/gnus/deuglify.el
ViewVC logotype

Diff of /emacs/lisp/gnus/deuglify.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by miles, Tue Dec 7 21:56:40 2004 UTC revision 1.6 by kfstorm, Wed Feb 9 15:50:39 2005 UTC
# Line 146  Line 146 
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  ;;  ;;
# Line 231  Line 231 
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    
# Line 291  Line 291 
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    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26