Allow $PAGER to override the compiled-in default pager command.

diff --git a/config/config.c b/config/config.c
index 63c272cf5479a05864cb6675bd4a593ba584d22b..72da2cd97c6ab1f9e222d84b7e97761545d8ae80 100644 (file)
--- a/config/config.c
+++ b/config/config.c
@@ -215,7 +215,7 @@ char *installproc = nmhlibdir (/install-mh);
  * draft message.
  */
 
-char *lproc = DEFAULT_PAGER;
+char *lproc = NULL;
 
 /*
  * This is the path for the Bell equivalent mail program.
@@ -229,7 +229,7 @@ char *mailproc = nmhbindir (/mhmail);
  * or message parts of type text/plain.
  */
 
-char *moreproc = DEFAULT_PAGER;
+char *moreproc = NULL;
 
 /* 
  * This is the program (mhl) used to filter messages.  It is

diff --git a/docs/pending-release-notes b/docs/pending-release-notes
index fcc99a7935624927c552c4551a1830a89b1ed68f..32080e7fa80d1a63958872616677fa3b64bea7e5 100644 (file)
--- a/docs/pending-release-notes
+++ b/docs/pending-release-notes
@@ -26,6 +26,7 @@ NEW FEATURES
   existing files.
 - Added -noall/-all switches to sortm(1).  sortm -noall requires
   a messages argument.
+- $PAGER overrides the compiled-in default pager command.
 
 
 ----------------------------

diff --git a/man/mh-profile.man b/man/mh-profile.man
index 949cf972528af6bfad8a0dc4a4c15b4d66fd0252..e7eb611b23b5b2d991498d454effc8e487862065 100644 (file)
--- a/man/mh-profile.man
+++ b/man/mh-profile.man
@@ -429,6 +429,9 @@ also used by the draft folder facility in
 and
 .B repl
 to display the draft message.
+(Note that
+.B $PAGER
+supersedes the default built-in pager command.)
 .RE
 .PP
 .BR mailproc :
@@ -488,6 +491,9 @@ formatted message when displaying to a terminal.  It is also the default
 program used by
 .B mhshow
 to display message bodies (or message parts) of type text/plain.
+(Note that
+.B $PAGER
+supersedes the default built-in pager command.)
 .RE
 .PP
 .BR mshproc :
@@ -827,6 +833,12 @@ profile entry will display debugging information
 about the values in that entry.
 .RE
 .PP
+.B $PAGER
+.RS 5
+If set to a non-null value, this supersedes the value of
+the default built-in pager command.
+.RE
+.PP
 .B $editalt
 .RS 5
 This is the alternate message.

diff --git a/sbr/readconfig.c b/sbr/readconfig.c
index 4cf05f1b2db56faa222446601007f0b93f766fb8..1ddd648f9feeef1563452102578e9e9fd89774e6 100644 (file)
--- a/sbr/readconfig.c
+++ b/sbr/readconfig.c
@@ -106,6 +106,23 @@ readconfig (struct node **npp, FILE *ib, char *file, int ctx)
        break;
     }
 
+    /*
+     * Special handling for the pager processes: lproc and moreproc.
+     *
+     * If they are not set by the profile, use the callers $PAGER if
+     * available, otherwise set them to DEFAULT_PAGER.
+     */
+    if (lproc == NULL) {
+        lproc = getenv("PAGER");
+       if (lproc == NULL || lproc[0] == '\0')
+           lproc = DEFAULT_PAGER;
+    }
+    if (moreproc == NULL) {
+        moreproc = getenv("PAGER");
+       if (moreproc == NULL || moreproc[0] == '\0')
+           moreproc = DEFAULT_PAGER;
+    }
+
     if (opp == NULL) {
        /* Check for duplicated non-null profile entries.  Except
           allow multiple profile entries named "#", because that's