/[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.2.2.1 by miles, Thu Sep 9 09:36:24 2004 UTC revision 1.2.2.2 by miles, Tue Sep 21 09:34:08 2004 UTC
# Line 235  Line 235 
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    
# Line 282  Line 290 
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    

Legend:
Removed from v.1.2.2.1  
changed lines
  Added in v.1.2.2.2

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