pager: skip to body for skip-quoted

In mails with many headers that fill the whole screen, it's convenient
to jump to the body, implemented as a side-efect of the <skip-quoted>
command.

Closes: #201
Signed-off-by: David Sterba <dsterba@suse.cz>

diff --git a/doc/manual.xml.head b/doc/manual.xml.head
index 892aa70d3ac981f6db84dafe7a9127634b78f6eb..34636d1e47232a9f10feffd242b09252ca82f751 100644 (file)
--- a/doc/manual.xml.head
+++ b/doc/manual.xml.head
@@ -13411,7 +13411,7 @@ color sidebar_ordinary color245 default
     <para>
       When viewing an email, the
       <literal>&lt;skip-to-quoted&gt;</literal> function (by default the
-      <literal>S</literal> key) will scroll past any quoted text.
+      <literal>S</literal> key) will scroll past any email headers or quoted text.
       Sometimes, a little context is useful.
     </para>
 

diff --git a/pager.c b/pager.c
index 7bc1fa6f754d18a6da808ce341e029f0844f71a7..ed90991f7ebdd2fd8f6585b49d051269bc807d5d 100644 (file)
--- a/pager.c
+++ b/pager.c
@@ -2439,6 +2439,21 @@ search_next:
          int dretval = 0;
          int new_topline = topline;
 
+         /* Skip all the email headers */
+         if (ISHEADER(lineInfo[new_topline].type))
+         {
+           while ((new_topline < lastLine ||
+                   (0 == (dretval = display_line (fp, &last_pos, &lineInfo,
+                          new_topline, &lastLine, &maxLine, MUTT_TYPES | (flags & MUTT_PAGER_NOWRAP),
+                          &QuoteList, &q_level, &force_redraw, &SearchRE, pager_window))))
+                  && ISHEADER(lineInfo[new_topline].type))
+           {
+             new_topline++;
+           }
+           topline = new_topline;
+           break;
+         }
+
          while (((new_topline + SkipQuotedOffset) < lastLine ||
                  (0 == (dretval = display_line (fp, &last_pos, &lineInfo,
                         new_topline, &lastLine, &maxLine, MUTT_TYPES | (flags & MUTT_PAGER_NOWRAP),