Uwe Brauer
10 years ago
Hello
I debuged the relevant functions and the problem is
in the function
gnus-outlook-repair-attribution-outlook
I have attached it below.
To be more specific the problem lies in the call:
re-search-forward
For example in top-posting generated by apple mail
nil t) returns a number, say 700
While in top-posting generated by gmail
nil t) returns nil
However when I sent my self a mail using gmail this does not happen so
I am really desperate.
So that is why the rearrangement does not work. I just don't understand
why it returns nil for some gmail messages
(defun gnus-outlook-repair-attribution-outlook () ;this function is the problem with google
"Repair a broken attribution line (Outlook)."
(let ((case-fold-search nil)
(inhibit-read-only t)
(cite-marks gnus-outlook-deuglify-cite-marks))
(gnus-with-article-buffer
(article-goto-body)
(when (re-search-forward
(concat "^\\([^" cite-marks "].+\\)"
"\\(" gnus-outlook-deuglify-attrib-verb-regexp "\\)"
"\\(.*\n?[^\n" cite-marks "].*\\)?"
"\\(" gnus-outlook-deuglify-attrib-end-regexp "\\)$")
nil t)
^^^^^^^^
(gnus-kill-all-overlays)
(replace-match "\\1\\2\\4")
(match-beginning 0)))))
Uwe Brauer
I debuged the relevant functions and the problem is
in the function
gnus-outlook-repair-attribution-outlook
I have attached it below.
To be more specific the problem lies in the call:
re-search-forward
For example in top-posting generated by apple mail
nil t) returns a number, say 700
While in top-posting generated by gmail
nil t) returns nil
However when I sent my self a mail using gmail this does not happen so
I am really desperate.
So that is why the rearrangement does not work. I just don't understand
why it returns nil for some gmail messages
(defun gnus-outlook-repair-attribution-outlook () ;this function is the problem with google
"Repair a broken attribution line (Outlook)."
(let ((case-fold-search nil)
(inhibit-read-only t)
(cite-marks gnus-outlook-deuglify-cite-marks))
(gnus-with-article-buffer
(article-goto-body)
(when (re-search-forward
(concat "^\\([^" cite-marks "].+\\)"
"\\(" gnus-outlook-deuglify-attrib-verb-regexp "\\)"
"\\(.*\n?[^\n" cite-marks "].*\\)?"
"\\(" gnus-outlook-deuglify-attrib-end-regexp "\\)$")
nil t)
^^^^^^^^
(gnus-kill-all-overlays)
(replace-match "\\1\\2\\4")
(match-beginning 0)))))
Uwe Brauer